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I programmi integrati 

Sento spesso parlare, nell'ambito del la¬ 
voro, di programmi integrati che sono in 
grado di svolgere diverse funzioni con¬ 
temporaneamente. Ne esistono anche 
per il C64? E cosa li differenzia dai nor¬ 
mali programmi? 

R.Evoll 

R. In generale, un programma si può de¬ 
finire integrato quando racchiude in un 
unico corpo vari "moduli" o "ambienti" 
che permettono di eseguire diverse ope¬ 
razioni sugli stessi dati. Ad esempio, i 
dati contenuti in un foglio elettronico 
possono, dopo un opportuno coman¬ 
do, essere "visti" dal programma come 
se si trovassero nel database, oppure 
con un altro comando essere "visti" co¬ 
me se fossero un testo contenuto nel 
word processor. 

La vera integrazione esiste dunque sol¬ 
tanto quando i diversi "ambienti" del pro¬ 
gramma sono in grado di scambiarsi i 
dati vicendevolmente e con un sempli¬ 
ce comando. 

In generale, programmi veramente inte¬ 
grati esistono soltanto per computer di 
livello superiore, soprattutto per i siste¬ 
mi MS-DOS. I più diffusi integrati - co¬ 
me Lotus 1 -2-3 - posseggono in genere 
tre "ambienti": foglio elettronico, databa¬ 
se e grafica. I dati inseriti nel foglio elet¬ 
tronico (comprendenti quindi anche tut¬ 
te le formula di calcolo tipiche dei fogli 
elettronici) possono essere immediata¬ 
mente visualizzati come un istogramma 
o un diagramma a torta passando nel¬ 
l'ambiente grafico, oppure ordinati alfa¬ 
beticamente nell'ambiente database, e 
così via... 

Altri programmi integrati di livello anco¬ 
ra superiore, come Lotus Symphony o 
Framework dell'Ashton-Tate mettono a 
disposizione "ambienti" aggiuntivi come 
il word processing e le comunicazioni; 
con questi programmi è veramente pos¬ 
sibile fare di tutto: scrivere una circola¬ 
re e fare in modo che venga stampata 
con indirizzi diversi tratti dal database, 
inserire nel testo dati variabili da cliente 
a cliente tratti dal foglio elettronico, tra¬ 



sferire interi archivi via telefono e ritro¬ 
varseli già pronti nel proprio archivio. 

Un programma integrato, per sua natu¬ 
ra, occupa una notevolissima quantità 
di memoria: esso è infatti una specie di 
miscellanea organizzata da tre o più 
programmi diversi che operano sugli 
stessi dati. Integrati come Symphony e 
Framework danno infatti il meglio di sè 
se utilizzati su computer con 640 Kbyte 
di RAM; il buon C64 è un computer ver¬ 
satile, ma non bisogna dimenticare che 
i suoi 64 Kbyte sono quelli che sono, e 
l'architettura della macchina non è sta¬ 
ta certamente progettata per applicazio¬ 
ni professionali come quelle appena de¬ 
scritte. Ci sono tanti modi in cui il C64 
può dare il meglio di sè: l'importante è 
non chiedergli l’impossibile! 


Come scegliere un word pro¬ 
cessor 


A causa di un nuovo lavoro mi trovo ora 
nella situazione di dover scrivere parec¬ 
chie relazioni alquanto lunghe e, posse¬ 
dendo un C64 con stampante, ho pen¬ 
sato di dotarmi anche di un buon word 
processor. Potete consigliarmi il miglio¬ 
re attualmente disponibile? 


E.Rigamontl 

R. Per ovvi motivi non possiamo consi¬ 
gliare ai nostri lettori di acquistare que¬ 
sto o quel prodotto software. Quello 
che possiamo invece fare è cercare di 
consigliarli sulle qualità che il software 
acquistato deve possedere per risolve¬ 
re la maggior parte delle esigenze. 
Innanzi tutto, una precisazione: sul 
mercato esistono word processor di tut¬ 
ti i tipi, dai più semplici ai più sofisticati, 
con dei prezzi oscillanti a seconda del¬ 
le potenzialità offerte dal prodotto, ma 
sempre sull'ordine delle centinaia di mi¬ 
gliaia di lire. 

Forse peccheremo di immodestia ma, 
se le esigenze di trattamento dei testi 


non richiedono operazioni troppo sofisti¬ 
cate, ci sentiamo di consigliare il no¬ 
stro SpeedScript 3.0: è un programma 
ormai supercollaudato, possiede tutte 
le principali funzioni di un buon word pro¬ 
cessor e, soprattutto, costa il prezzo di 
una rivista! L'unica sua limitazione im¬ 
portante è forse la non possibilità di giu¬ 
stificare il testo su entrambi i margini, 
mentre possiede forse altre caratteristi¬ 
che che anche programmi professionali 
raramente offrono: un accessorio per il 
controllo automatico della corretta orto¬ 
grafia dei testi con dizionario creato 
dall'utente, possibilità di simulare le 80 
colonne, etc. 

In generale tuttavia, le caratteristiche 
che un buon word processor deve ave¬ 
re per giustificare il suo costo elevato 
sono: 

- possibilità di assegnare ai caratteri at¬ 
tributi come grassetto, sottolineato, 
doppia larghezza, compresso, etc. 

- possibilità di cercare e sostituire auto¬ 
maticamente caratteri, parole, frasi e 
paragrafi 

- possibilità di cancellare, copiare e spo¬ 
stare interi blocchi di testo con un sem¬ 
plice comando 

- possibilità di centrare ed allineare ai 
margini parole, frasi e paragrafi 

- possibilità di salvare i testi come puri 
file ASCII senza caratteri di controllo 
(per renderli leggibili da altri programmi) 

- possibilità di uscire anche su porta RS- 
232 per il collegamento a stampanti di 
qualità 

- eventuale sillabazione automatica del 
testo al raggiungimento del margine 
destro 

- eventuale correzione automatica degli 
errori ortografici con vocabolario ita¬ 
liano 

- eventuale possibilità di editing contem¬ 
poraneo su documenti diversi 
-possibilità di trattamento di testi 

abbastanza lunghi 

La listasi potrebbe naturalmente esten¬ 
dere parecchio, tuttavia riteniamo che 
siano queste le caratteristiche che si ri¬ 
chiedono ad un word processor che co¬ 
sta parecchio, e che si dovrà utilizzare 
quotidianamente per lavoro. 
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OK-LIST 


S appiamo tutti quanto sia diffici¬ 
le digitare correttamente un pro¬ 
gramma (ovviamente, se non si di¬ 
spone della cassetta allegata alla rivi¬ 
sta!). Errori di digitazione anche ba¬ 
nali possono provocare il malfunzio¬ 
namento del programma stesso o 
anche il blocco completo del compu¬ 
ter, obbligando a riprendere da ca¬ 
po tutto il lavoro. 

OK-LIST è un particolare program¬ 
ma in grado di intercettare gli errori 
commessi durante la digitazione di 
uno dei listati da noi pubblicati, e di 
segnalaceli. 

Digitate il listato pubblicato in que¬ 
sta pagina (attenzione a non com¬ 
mettere errori: OK-LIST non può 
controllare se stesso!) e quindi salva¬ 
telo su nastro o disco. 

Quando dovrete accingervi a digita¬ 
re uno dei nostri programmi in BA¬ 
SIC, caricate per prima cosa OK- 
LIST e dategli il RUN: dopo una bre¬ 
ve attesa, necessaria a inserire in 
memoria una routine in linguaggio 
macchina, comparirà sullo schermo il 
messaggio "OK-LIST ATTIVATO". 


Potete a questo punto iniziare a rico¬ 
piare il programma BASIC prescelto, 
evitando di digitare la "rem” seguita 
da un numero che compare al termi¬ 
ne di ogni linea. Come vedrete, alla 
pressione di RETURN apparirà un 
numero nell'angolo superiore sini¬ 
stro dello schermo; confrontatelo 
con quello riportato dopo la "rem" 
sul listato: se è diverso, avete com¬ 
messo un errore nel digitare quella li¬ 
nea di programma. 

OK-LIST non verifica gli spazi all'in¬ 
terno di una linea di istruzione: se 
tutti i checksum (così vengono chia¬ 
mati i numerini di controllo visualizza¬ 
ti da OK-LIST) sono corretti, e il pro¬ 
gramma genera invece delle videa- 
te 'spezzettate', probabilmente ave¬ 
te dimenticato o aggiunto qualche 
spazio di troppo all’interno delle vir¬ 
golette di una istruzione PRINT. 
Inoltre, OK-LIST non è in grado di 
controllare la sequenza con la quale 
vengono digitati i caratteri all’interno 
di un’istruzione; ciò è particolarmen¬ 
te pericoloso nel caso delle istruzio¬ 
ni DATA contenenti molti numeri. 
Ad esempio, digitando 220 dove an¬ 
drebbe digitato 202, non si verifica 
alcuna variazione nel checksum, pur 
avendo commesso un errore: consi¬ 


gliamo quindi di porre grande atten¬ 
zione nel digitare tale tipo di istru¬ 
zioni. 

Un'ultima avvertenza sull'utilizzo di 
OK-LIST riguarda le abbreviazioni 
delle istruzioni BASIC: esse non 
vengono riconosciute da OK-LIST e 
generano pertanto un checksum dif¬ 
ferente. Se si utilizza OK-LIST, le 
istruzioni BASIC dovranno quindi es¬ 
sere digitate per intero. 

Data la sua posizione in memoria (il 
buffer del registratore), OK-LIST in¬ 
terferisce con ogni operazione con 
l'unità a cassette. Per questo moti¬ 
vo prima di effettuare un SAVE su 
nastro OK-LIST dovrà essere pre¬ 
ventivamente disabilitato attraverso 
la pressione di RUN/STOP e RE¬ 
TTORE. 

Non è possibile effettuare operazio¬ 
ni di LOAD da cassetta senza cancel¬ 
lare OK-LIST dalla memoria. 

Queste limitazioni non sono invece 
presenti, se si utilizza il disk drive co¬ 
me memoria di massa. 

Nel caso si prema accidentalmente 
RUN/STOP e RESTORE durante l'u¬ 
tilizzo di OK-LIST, esso potrà esse¬ 
re riattivato digitando SYS886. 

Buon lavoro! 


10 PRINT"{CLR}ATTENDERE PREGO..." 

11 FORI=886TOl018 :READA:CK=CK+A:POKEI,A:N 
EXT 

12 IF CK017539 THEN PRINT" {GIU ' }ERRORE N 
ELLE ISTRUZIONI DATA":END 

13 SYS886:PRINT"(CLR){ 2 GIU’}OK-LIST ATT 
IVATO.": NEW 

14 DATA173,036,003,201,150,208 

15 DATA001,096,141,151,003,173 

16 DATA037,003,141,152,003,169 

17 DATAI 50,1 41 ,036,003,1 69,003 

18 DATAMI ,037,003,1 69,000,1 33 

19 DATA254,096,032,087,241 ,1 33 

20 DATA251,134,252,132,253,008 

21 DATA201,013,240,017,201,032 

22 DATA240,005,024,101,254,133 

23 DATA254,165,251,166,252,164 

24 DATA253,040,096,169,013,032 

25 DATA210,255,165,214,141,251 

26 DATA003,206,251,003,169,000 

27 DATA133,216,169,019,032,210 

28 DATA255,169,018,032,210,255 

29 DATAI 69,058,032,210,255,166 

30 DATA254,169,000,133,254,172 

31 DATAI 51,003,192,087,208,006 

32 DATA032,205,189,076,235,003 

33 DATA032,205,221,169,032,032 

34 DATA210,255,032,210,255,1 73 

35 DATA251,003,133,214,076,173 

36 DATA003 


1 REM u>eCK 

I fi? rVop-PEEK a3730 +2 66.P 

“ E ie a cuÌBR r»»top-88: REM RRMTO 

°~1B LET r«»top-PEEK 33730-*85e#P 
EEK 83731 , , „ 

--->1; LET n=2S 


RB 7;"DEC’ 



n;TflB 18;b 


*£,83,98,17,0,0.114,30 
3é . 7é, 3é ,9,186,804., 64 
,0,0,85,83é,aaé,84,83 

C "01834B6769RBCDEF" 
b*«" '• 

1-1 TO 0 STOP -1 
b-INT (d/’lOtlO 
b*=b*«-Cf (b + 1) 
d —d —bftlot 1 
H 

URN 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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di C. Brannon 

trad. e adatt. di M. Cristuib Grizzi 


M LX é un programma che permette 
di inserire listati in linguaggio mac¬ 
china esenti in modo assoluto da errori 
e senza la perdita di tempo del dover 
battere e controllare lunghe sequenze 
di istruzioni DATA. 

Molti dei nostri listati di programmi in lin¬ 
guaggio macchina hanno il formato MLX 
(li riconoscete dal fatto che sono esclu¬ 
sivamente numerici) e richiedono quindi 
che MLX sia caricato in memoria ed ese¬ 
guito prima della battitura del listato. 

MLX vi chiederà l'indirizzo della locazio¬ 
ne finale del programma da caricare. 
Questi valori sono sempre indicati nel¬ 
l'articolo che accompagna il listato. 

MLX vi segnala automaticamente gli er¬ 
rori di battitura MENTRE STATE DIGI¬ 
TANDO IL LISTATO e vi chiede di reinse¬ 
rire la linea errata. L’ultimo numero battu¬ 
to di ogni linea rappresenta il cbecksum 
e viene visualizzato in reverse. 

Sono inoltre disponibili altri comandi, 
quali: 


SHIFT-N nuovo indirizzo: permette di 
cambiare l'indirizzo della linea che vole¬ 
te battere ed é utile nel caso si inseri¬ 
scano i listati in più parti. 

SHIFT-D display: lista i dati inseriti tra 
due indirizzi di inizio e fine. 

SHIFT-L load: carica un file da nastro o 
SHIFT-S save: salva su nastro o disco 
un file in formato MLX. 

Una volta battuto il listato, e salvatolo 
tramite MLX, si potrà caricare diretta- 
mente il programma con un'istruzione 
LOAD "nome del file",1,1 per il registrato- 
re, oppure LOAD "nome file”,8,1 per l'uni¬ 
tà a dischi, salvo diverse indicazioni da¬ 
te negli articoli corrispondenti ai vari 
programmi. Il programma sarà general¬ 
mente mandato in esecuzione con una 
SYS (indirizzo di partenza). 

La versione originaria di MLX per C64 ha 
subjjo, dalla prima pubblicazione, diver¬ 
si ritocchi e miglioramenti, fino alla ver¬ 
sione 2.0 qui presentata. 

E' stato in primo luogo modificato il colo¬ 


re di fondo dello schermo e del bordo, in 
modo da risultare meno stancante alla 
vista; sono state ulteriormente perfezio¬ 
nate le routine in linguaggio macchina di 
salvataggio e caricamento dei program¬ 
mi; é cambiata la forma del cursore e, 
cosa più importante, é stato aggiunto 
un tastierino numerico per gli utenti che 
si trovano più a loro agio con una diver¬ 
sa disposizione dei tasti. 

Oltre a poter usare i soliti tasti numerici, 
sono stati ridefiniti alcuni tasti alfabeti¬ 
ci, in modo da generare ugualmente dei 
numeri. I tasti ridefiniti sono i seguenti: 

U I O 7 8 9 

H J K L diventano 0 4 5 6 
M , . 12 3 

Le persone abituate a usare tali tastieri- 
ni accresceranno senz'altro, in brevissi¬ 
mo tempo, la velocità di battitura dei pro¬ 
grammi in linguaggio macchina. 


MLX 


100 PRINT"(CLR){CYN}";CHR$(142) ;CHR$(8) ; : 

POKE53280,0 :POKE53281 ,0 :rem 71 

101 POKE788,52 : REM DISABILITA RUN/STOP 

:rem 89 

110 PRINT"{RVS}{ 40 SPAZI}"; :rem 176 
120 PRINT"{RVS}{ 15 SPAZI}{DES}{OFF}[<*>] 
£{RVS}{DES} {DES}{ 2 SPAZI}[<*>]{OFF} 
(<*>}£{RVS}£{RVS}{ 13 SPAZI}"; 

:rem 250 

130 PRINT"{RVS}{ 15 SPAZI}{DES}[<N>][<H>1 
{DES} { 2 DES} {OFF}£{RVS}£[<*>]{OFF} 
[< * >]{RVS}{ 13 SPAZiT"; : rem 220 

140 PRINT"{RVS}{ 40 SPAZI}" : rem 120 

200 PRINT"{ 2 GIU'}{PURjEDITOR DI CODICE 
MACCHINA VERSIONE 2 - 0{ 3 GIU'}" 

:rem 126 

210 PRINT" [<5>]{ 2 SU} INDIRIZZO DI PARTE 
NZA{ 2 SPAZI}";:INPUTS:F=1-F:C$=CHR$( 
31+119*F) :rem 85 

220 IFS<256OR(S>40960ANDS<49152)ORS>53247 
THENGOSUB3000:GOTO210 :rem 235 

225 PRINT:PRINT:PRINT :rem 180 

230 PRINT"[<5>){ 2 SU} INDIRIZZO CONCLUSI 
VO{ 3 SPAZI}";:INPUTE:F=1-F:C$=CHR$(3 
1+119*F) :rem 92 

240 IFE<256ÓR(E>40960ANDE<49152)ORE>53247 
THENGOSUB3000: GOTO230 : rem 183 

250 IFE<STHENPRINTCS;"{RVS}INDIRI ZZO CONC 


LUSIVO<INDI RI ZZO INIZIALE" :rem 200 


255 

IFE<STHENGOSUBl000 :GOTO230 : rem 

11 9 

260 

PRINT:PRINT:PRINT 

: rem 

1 79 

300 

PRINT"{CLR}";CHR$(14): 

AD=S:POKEV+21,0 



: rem 

225 

310 

A=1:PRINTRIGHT$("0000" 

+MID$(STR$(AD), 


2),5):FORJ=AT06 

: rem 

227 

315 

FORJ =AT06 

: rem 

33 

320 

GOSUB570: 1FN = -1THENJ=J+N:GOTO320 




: rem 

228 

390 

IFN=-211THEN710 

: rem 

62 

400 

IFN=-204THEN790 

: rem 

64 

410 

IFN=-206THENPRINT:INPUT"{GIU'} INSERÌ 


RE IL NUOVO INDIRIZZO" 

;ZZ :rem 

1 3 

414 

IFN=-206THENIFZZ<SORZZ>ETHENPRINT" 



{RVS}ESCE DAL CAMPO DI 

VALORI INDICAT 


O" 

: rem 

105 

415 

IFN = -206THENIFZZ<SORZZ>ETHENGOSUB1 000 


:G0TO410 

: rem 

202 

417 

IFN=-206THENAD=ZZ:PRINT:GOTO310 




: rem 

238 

420 

IFNO-1 96THEN480 

: rem 

1 33 

430 

PRINT:INPUT"LISTATO:DA 

";F:PRINT" 



{ 9 SPAZI}A";:INPUTT 

: rem 

1 83 


440 IFF<SORF>EORT<SORT>ETHENPRINT"MINIMO" 
;S;" MASSIMO"; E;"! [<5>J":GOTO4 30 

:rem 147 

450 FORI=FTOTSTEP6:PRINT:PRINTRIGHT$("000 
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0"+MID$(STR$(I),2),5):rem 30 
451 FORK=0TO5:N=PEEK(I+K):PRINTRIGHTS("00 
"+MID$(STR$(N) ,2) ,3)-:rem 66 
460 GETA$:IFA$>""THENPRINTSPRINT:G0T0310 

srem 25 

470 NEXTK:PRINTCHR$(20); :NEXTI:PRINT:PRIN 
T:GOTO310 srem 50 

480 IFN<0THENPRINT:GOTO310 : rem 168 

490 A(J)=N:NEXTJ srem 199 

500 CKSUM=AD-INT(AD/2 56)*256 SFORI = 1T06:CK 
SUM=(CKSUM+A(I))AND255 :NEXT : rem 200 

510 PRINTCHR$(18); :GOSUB570:PRINTCHR$(146 

) ; : rem 94 

511 IFN=-lTHENA=6:G0T0315 srem 254 

515 PRINTCHRS(20):IFN=CKSUMTHEN530 

srem 122 

520 PRINTsPRINT"{RED}LA LINEA E' STATA IN 


610 GOSUB690:IFI = 1ANDT=44THENN = -1 :PRINT" 



{SIN} {SIN}";SGOTO690 

: rem 

172 

620 

GOTO570 

: rem 

1 09 

630 

IFA< 4 80RA> 57THEN580 

: rem 

1 05 

640 

PRINTAS;:N=N*10+A-48 

: rem 

1 06 

650 

IFN>255THENA=20:GOSUBl 000 : 

GOTO600 




: rem 

229 

660 

Z = Z+1:IFZ< 3THEN580 

: rem 

71 

670 

IFZ=0THENGOSUBl000:GOTO570 

: rem 

114 

680 

PRINT",";: RETURN 

: rem 

240 

690 

S%=PEEK(209)+256*PEEK(210)+PEEK(211) 



: rem 

1 49 

691 

FORI=1T03:T=PEEK(S%-I) 

: rem 

67 

695 

IFT< >44ANDT< >58THENPOKES%- 

1,32:NEXT 



: rem 

205 

700 

PRINTLEFTS("{ 3 SIN}",I-1) 

; : RETURN 



: rem 

7 

710 

PRINT"{CLR}{RVS}*** SAVE *** 



{ 3 GIU'}" 

: rem 

236 


715 PRINT"{ 2 GIU'}PREMERE {RVS}RETURN 
{OFF} PER USCIRE DAL SAVE{GIU 1 T n 

: rem 10 3 

720 F$ = "": INPUT"{GIU 1 }NOME DEL FILE";F$:I 
FF$=""THENPRINT:PRINT:GOTO310 

srem 42 

730 PRINT:PRINT"{ 2 GIU'}{RVS}N{OFF}ASTRO 
O {RVS}D{OFF}ISCO: (N/D)" srem 128 

740 GETA$:IFA$<>"N"ANDA$<>"D"THEN740 

: rem 30 

750 DV=1 - 7*(A$ = "D") :IFDV=8THENF$="0 :"+F$: 
OPENl5,8,15,"S"+F$:CLOSEl5 srem 212 

760 T$=F$:ZK=PEEK(53)+256*PEEK(54)-LEN(T$ 
):POKE782,ZK/256 srem 3 


762 


763 


765 


766 


770 


775 


780 


781 


790 


POKE781,ZK-PEEK(782)* 2 56 :POKE780,LEN( 
T$):SYS65469 : rem 109 

POKE780, 1 :POKE781 ,DV:POKE782,1 :SYS654 
66 srem 69 

K=S:POKE254,K/256:POKE253,K-PEEK(254) 
*256:POKE780,253 srem 17 

K=E +1 :POKE782,K/256:POKE781,K-PEEK(78 
2)*256:SYS65496 srem 235 

IF(PEEK(783)ANDl)OR(191ANDST)THEN780 

: rem 111 

PRINT"{GIU'}FATTO.{GIU'}":GOTO310 

srem 201 

PRINT"{GIU'}ERRORE NEL SAVE-RIPROVA!" 
:IFDV=lTHEN720 : rem 104 

OPENl 5,8,15:INPUT#15,El$,E2$:PRINTEl$ 
;E2$ sCLOSEl5:GOTO720 s rem 103 

PRINT"{CLR}{RVS}*** LOAD *** 



SERITA IN MANIERA" 

: rem 

1 57 


{ 2 GIU'}" 

2 rem 

21 2 

525 

PRINT"ERRATA. RIPETEREl<5>]":PRINT 

:GO 

795 

PRINT"{ 2 GIU'}PREMERE {RVSjRETURN 


SUBÌ 000:GOTO310 

2 rem 

27 


{OFF} PER USCIRE DAL 

LOAD{GIU'}" 


530 

GOSUB2000 

2 rem 

21 8 



: rem 

96 

540 

FORI=lT06:POKEAD+I-1,A(I) 

sNEXT:POKE54 

800 

F$ = "": INPUT"{ 2 GIU' 

}NOME DEL FILE";F 


272,0:POKE54273,0 

2 rem 

227 


$:IFF$=""THENPRINT:GOT031 0 srem 

115 

550 

AD=AD+6:IFAD<ETHEN310 

2 rem 

212 

810 

PRINT:PRINT"{ 2 GIU' 

} {RVS}N{OFF}ASTRO 

560 

GOTO710 

2 rem 

1 08 


O {RVS}D{OFF}ISCO: 

(N/D)" : rem 

127 

570 

N=0:Z=0 

2 rem 

88 

820 

GETA$:IFA$< >"N"ANDA$< >"D"THEN820 


580 

PRINT"[<£>]"; 

2 rem 

81 



2 rem 

28 

581 

GETA$:IFA$=""THEN581 

2 rem 

95 

830 

DV=1 - 7* (A$ = "D") sIFDV 

N 

OD 

>-3 

X 

n 

z 

-CO 

II 

o 

+F$ 

582 

AV=-(A$ = "M")- 2*(A$ = ",")- 3 

* (A$ = ".") 

-4* 



2 rem 

1 57 


(A$="J")-5*(A$="K")-6*(A$ 

= "L") 


840 

T$=F$:ZK=PEEK(53)+256*PEEK(54)-LEN (T$ 



2 rem 

41 


):POKE782,ZK/256 

2 rem 

2 

583 

AV=AV-7*(A$ = "U")- 8*(A$ = "I 

11 ) - 9* ( A$ = 

"O" 

841 

POKE781 ,ZK-PEEK(782)* 256 :POKE780, 

LEN ( 


):IFA$="H"THENA$="0" 

2 rem 

1 34 


T$ ):SYS65469 

2 rem 

107 

584 

IFAV>0THENA$=CHR$(48+AV) 

2 rem 

134 

845 

POKE780,1 :POKE781 ,DV 

: POKE782,1 s SYS654 

585 

PRINTCHR$(20);:A=ASC (A$) : 

I FA=130RA 

.= 44 


66 

2 rem 

70 


ORA= 32THEN670 

2 rem 

229 

850 

POKE780,0:SYS65493 

2 rem 

11 

590 

IFA>128THENN=-A:RETURN 

2 rem 

1 37 

860 

IF(PEEK(783)ANDl)OR(191ANDST)THEN870 

600 

IFA020THEN630 

2 rem 

10 



2 rem 

1 1 1 


865 PRINT"{GIU 1 }FATTO."SGOTO310 : rem 184 
870 PRINT"{GIU'}ERRORE NEL LOAD-RIPETI! 

{GIU'}":IFDV=1THEN800 : rem 19 

880 OPENl5,8,15:INPUT#15,E1$,E2$:PRINTEl$ 
;E2$ sCLOSEl5:GOTO800 s rem 102 

1000 REM CICALINO srem 231 

1001 POKE54296,1 5 :POKE54277,45 :POKE54278, 

165 : rem 207 

1002 POKE54276,33:POKE54273,6:POKE54272,5 

srem 42 

1 00 3 FORT=1TO200:NEXT:POKE54276,32 :POKE54 
273,0:POKE54272,0:RETURN srem 202 

2000 REM CAMPANELLO srem 130 

2001 POKE54 296,1 5:POKE54 277,0 :POKE54 2 78,2 

4 7 : rem 152 

2002 POKE5427 6,!7 :POKE54273,40 :POKE54272, 

0 srem 86 

200 3 FORT=1TOl00 :NEXT:POKE54276,1 6 : RETURN 

:r era 57 

3000 PRINTCS;"{RVS} NON IN PAGINA ZERO O 
SU{DES}ROM "sGOTOl000 srem 240 
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Quante volte ci ò capitato di es¬ 
sere presi da "smanie di puli¬ 
zia" ed iniziare a cancellare 
vecchi dischetti che non si uti¬ 
lizzavano da tempo? Probabil¬ 
mente altrettante volte ci siamo 
pentiti In seguito, cercando pro¬ 
grammi e dati che erano su quel 
dischetti. Con II programma pre¬ 
sentato In questo articolo di¬ 
sporremo di un utile strumento 
per recuperare tutti questi file. 

Come abbiamo visto recentemente par¬ 
lando di "Disk Utility", il recupero di un 
file cancellato su disco prevede una se¬ 
quenza di operazioni piuttosto lunga e 
complessa. Questa sequenza di opera¬ 
zioni si può riassumere in: 

- leggere le tracce della directory fino a 
localizzare il nome del file cancellato 
che si desidera recuperare; 

- seguire i link di tutti i blocchi del file, e 
confrontarli con quello presente nella di¬ 
rectory; 

- leggere la BAM per controllare l'effetti¬ 
va disponibilità di tutti i blocchi neces¬ 
sari; 

- modificare il 'magic byte' nella dire¬ 
ctory in modo che esso indichi il tipo di 
file (PRG, SEQ, USR, REL) 

- riscrivere su disco il blocco così modi¬ 
ficato e validare il dischetto. 

Certamente non sono operazioni molto 
semplici che possano essere effettua¬ 
te anche da utenti inesperti! 

Per nostra fortuna c'è il programma pre¬ 
sentato in questo articolo che compie 
automaticamente tutte queste operazio¬ 
ni, o quasi... L'unica limitazione del pro¬ 
gramma sta infatti nell'allocazione dei 
blocchi di un file cancellato: se questi 
sono nel tempo stati sovrascritti da al- 
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tri dati o altri programmi, non siamo in 
grado di accorgercene utilizzando Re¬ 
cupera Files. 

In generale tuttavia, ben raramente si 
desidera recuperare un file cancellato 
una settimana prima da un dischetto su 
cui si è continuato a fare operazioni di 
salvataggio: sarebbe troppo pretende¬ 
re di recuperarlo intatto! 

Quando il programma è in grado di indivi¬ 
duare un file cancellato, esso fa di tutto 
per renderlo ancora utilizzabile: è molto 
probabile infatti che, dopo il tentativo di 
recupero, il suo nome compaia nella di¬ 
rectory; il modo migliore per controllare 


se il recupero ha avuto o meno succes¬ 
so è provare a caricare e mandare in 
esecuzione il file stesso. 

Dopo aver caricato e mandato in esecu¬ 
zione Recupera Files, compare un me¬ 
nu di selezione formato da sei opzioni: 
la prima consente di effettuare il recupe¬ 
ro di un particolare file inserendone il no¬ 
me in risposta alla domanda del compu¬ 
ter; la seconda permette il tentativo di 
recupero di tutti i file cancellati presenti 
sul dischetto; la terza opzione esegue 
la convalida del dischetto (eseguire 
sempre la convalida dopo aver tentato 
di recuperare dei file!). 
















La quarta opzione disponibile consente 
di visualizzare a video o stampare su 
stampante la directory "ampliata" del di¬ 
schetto, ovvero la directory contenen¬ 
te anche itile cancellati. 

L’opzione numero 5 permette di cancel¬ 
lare un file da disco (se il file recuperato 
non è in grado di funzionare, può esse¬ 
re nuovamente cancellato). 

L'opzione 6 consente infine di uscire 
dal programma e ritornare al BASIC. 

Come usare il programma 

Per prima cosa è opportuno utilizzare 
l'opzione 4 ed osservare la directory 
ampliata del dischetto. Se il file da recu¬ 
perare è in quel dischetto, è possibile 
selezionare il file stesso tramite l'opzio¬ 
ne 1 e tentarne direttamente il recu¬ 
pero. 

Se i file da recuperare sono più di uno, 
selezionare l'opzione 2: in corrispon¬ 
denza di ciascun file cancellato, il pro¬ 
gramma proporrà la scelta tra i diversi ti¬ 
pi di file in cui deve essere convertito il 
file cancellato (PRG, SEQ, USR, REL, 
DEL). La scelta di DEL lascia il file inal¬ 
terato. Il file cancellato deve rigorosa¬ 
mente essere riconvertito nello stesso 
tipo di file, non è possibile, ad esempio, 
recuperare come PRG un file cancella¬ 
to SEQ. 

Dopo aver recuperato il o i file, eseguire 
una convalida del dischetto, uscire dal 
programma e verificare il buon funziona¬ 
mento del file. 

Recupera Files 


Come vedete, Recupera Files è molto 
semplice da utilizzare e risolve (nei limi¬ 
ti del possibile!) il problema del recupe¬ 
ro dei file anche per l'utente inesperto. 

Note per II caricamento, la digi¬ 
tazione ed il trasferimento su di¬ 
sco del programma 

Se si dispone della cassetta allegata al¬ 
la rivista, è sufficiente posizionarsi con 
il nastro in corrispondenza dell’inizio 
del programma e digitare: 

LOAD (RETURN) 

Il programma andrà quindi mandato in 
esecuzione digitando: 

RUN (RETURN) 

Ricordiamo che per conoscere il punto 
esatto di inizio dei vari programmi su 
cassetta è sufficiente inserire quest'ul- 
tima completamente riavvolta nel regi¬ 
stratore, azzerare il contanastro e digi¬ 
tare: 


LOAD"*" (RETURN) 

Dal momento che sicuramente non esi¬ 
ste sulla cassetta alcun programma di 
nome '*', il computer passerà in rasse¬ 
gna tutti i programmi incontrati visualiz¬ 
zandone il nome con il messaggio: 
FOUND XXXX 


Sarà quindi utile annotarsi su un foglio i 
nomi dei programmi e la relativa posizio¬ 
ne del contanastro (sottrarre tre o quat¬ 
tro unità dal valore corrispondente al¬ 
l'apparizione del messaggio FOUND...). 
Gli abbonati alla sola rivista dovranno 
invece usare il programma MLX (vedere 
in altra parte della rivista) per digitare il 
listato in linguaggio macchina. La proce¬ 
dura da seguire, in questo caso, è: 


1. Accendere il computer e digitare: 

POKE44.41 :POKE41 *256,0:NEW 
(RETURN) 


2. Caricare in memoria MLX (che sarà 
stato precedentemente digitato e salva¬ 
to), e rispondere alle sue richieste circa 
gli indirizzi iniziale e finale con: 


indirizzo iniziale: 2049 
indirizzo finale: 10464 


Dopo avere digitato e salvato il program¬ 
ma tramite MLX, si potranno seguire 
per il caricamento le istruzioni date più 
sopra per i possessori di cassetta. 
Ricordiamo che il programma in linguag¬ 
gio macchina, poiché risiede nella nor¬ 
male area BASIC, può essere trasferito 
da cassetta a disco direttamente con 
un comando SAVE "nomefile",8. 


204 9 : 02 6,008,001,000, 158, 050,24 4 
2055 : 04 8, 055, 054,032, 032, 032, 004 
2061 : 032,032, 032, 032,032,032,205 
20 67 : 032,032,032,032,032,032,211 
2073 : 000, 000,000,07 6, 14 6,012,003 
2079 : 07 6, 167, 014,07 6, 129,014,251 
2085 : 009, 009,030,027,027,028,167 
2091 : 028,012,012,024,024,029, 172 
2097 : 029,028,028,029, 012, 029,204 
2103 : 021,021,021, 021,021,021, 181 
2109 : 021,021,021, 021, 021,021, 187 
2115 : 021,021, 021,021, 021, 021,193 
2121 : 020,022,023,023,023,029,213 
2127 : 02 9,029,014,025, 02 4,024,22 4 
2133 : 024,025, 025, 025, 025, 024,233 
2139 : 025, 025, 022,014,022,014,213 
214 5 : 024,024,024,024,014,014,221 
2151 : 026,026, 028,02 6, 027, 026, 00 6 
2157 : 013,026, 029,025, 02 6,026,254 
2163 : 026,030,030,030,031,025,031 
2169 : 031,031,031,031,031,031,051 
2175 : 031,031,031,031,031,031,057 
2181 : 031, 031, 031, 151, 17 4,007,04 6 
2187 :116,098,042, 010,128, 166, 187 
21-93 : 050,08 6, 028,015,227,227, 010 
2199 : 04 8,160, 114,102, 073, 054,190 
2205 : 036, 036, 14 9, 036, 036, 036, 230 
2211 : 036,036,036,036,036,133,220 
2217 :154,253,200,254,122, 116,24 4 
2223 :116,065, 141, 194, 067,203, 193 
2229 -.096,218, 218,218,158, 109, 174 


2235 :109,186,218,186,17 6,205,243 
2241 :008,180,154,107,107,050,031 
224 7 :050,157,160,018,092,204,112 
2253 : 029,026,029,254,092,092,215 
2259 :253,006,000,009,160,162,033 
2265 :159,061,218,117,117,117,238 
2271 :118,117,117,117,117,117,158 
2277 :117,117,116,117,117,119,164 
2283 : 000,007,014,021,028,035,084 
228 9 : 042,049,056,0 63,070,077,086 
2295 :084,091,098,105,112,119,088 
2301 :126,133,140,147,154,161,090 
2307 :168,175,182,189,196,203,092 
2313 : 210,217,039,003,000,000,222 
2319 : 016,232,100,010,106,083,050 
232 5 : 043,018,123,184,184,186,247 
2331 :187,191,160,002,169,032,000 
2337 : 036,100,016,005,032,201,167 
234 3 : 013,169,04 5,153,254,000,161 
2349 :132,113,162,000,134,098,172 
2355 :165,100,240,012,201,039,040 
2361 :176,019,232,201,003,176,096 
2367 -.014,232,144,011,165,101,218 
2373 :240,075,162,002,201,100,081 
2379 :176,001,232,189,011,009,181 
2385 :133,034,189,015,009,133,082 
2391 :035,160,255,056,200,165,190 
2397 :101,229,035,133,101,165,089 
2403 :100,229,034,133,100,176,103 
2409 :241,165,101,101,035,133,113 
2415 :101,165,100,101,034,133,233 
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24 21 :100,165,098,208,005,152,077 
2427 :240,012,230,0 98,152,009,096 
2433 : 048,164,113,153,255,000,094 
2439 :230,113,232,224,004,144,058 
244 5 :192,164,113, 165,101,009,117 
24 51 : 048,07 6,004,191,165,014,133 
2457 : 016,006,032,201,013,076,241 
24 63 :203,014,165,097,24 0,006,116 
24 69 :165,102,073,255,133,102,227 
2475 : 076,203,014,165,014,048,179 
2481 : 003,032,066,020,165,100,051 
2487 : 073,255,133,100,165,101,242 
24 93 : 073,255,133,101,076,203,006 
24 99 : 014,07 6,088,182,170,208,165 
2505 : 004,166,111,208,006,166,0 94 
2511 :101,208,004,166,100,134,152 
2517 : 022,165,097,133, 110,177,149 
2523 : 111, 133,105,024,101,097,022 
2529 :176,225,133,0 97,240,102,174 
2535 :165,051,164,052,056,229,180 
2541 : 097,17 6,001,136,196,050,125 
2 54 7 :208,002,197,04 9,176,003, 110 
2553 : 032,122,031,133,051,133,239 
2559 : 098,133,053,132,052,132,087 
2565 : 099,132,054,160,002,177,117 
2571 : 111,133,035,136,177,111,202 
2577 :133,034,164,105,240,025,206 
2 583 :136,240,007,177,034,14 5,250 
2589 : 053,136,208,249,177,034,118 
2595 :145,053,165,105,024,101,116 
2601 : 053,133,053,14 4,002,230,14 4 
2607 : 054,160,002,177,100,133,161 
2613 : 035,136,177,100,133,034,156 
2619 :164,110,240,014,136,240,195 
2625 :007,177,034,145,053,136,105 
2631 :208,249,177,034,145,053,169 
2637 : 076,012,024,166,101,208,152 
264 3 : 029,166,100,134,022,166,188 
2 64 9 : 099,228,052,208,019,166,093 
2655 : 098,228,051,208,013,165,090 
2661 : 097,240,009,024,101,051,111 
2667 :133,051,14 4, 002,230,052,207 
2673 :177,111,170,200,177,111,035 
267 9 :133,106,200,177,111,133,211 
2685 :107,165, 112,208,028,165,142 
2691 :111,133,022,165,107,197,098 
2697 : 052,208,018,165,106, 197,115 
2703 : 051,208,012,138,240,009,033 
2709 :024,101,106,133,051,144,196 
2715 : 002,230,052,228,097,240,236 
2721 : 008,160,004,144,004,160,129 
2727 : 001,166,097,132,102,160,057 
2733 : 255,232,200,202,240,032,054 
2739 :177,106,209,098,240,24 6,231 
274 5 :169,001,176,002,169,004,194 
2751 : 037,0 60,240,002,169,255,186 
2757 :133,100,133,101,169,128,193 
2763 :133,014,010,133,013,076,070 
2769 : 201,014,165,102,016,232,171 
277 5 :164,105,208,034,164,097,219 
2781 : 240,008,165,102,04 8,007,023 
2787 :169,004,208,005, 169,002,016 
27 93 : 044,169,001,037,0 60,240,016 
2799 : 002,169,255,133,100,133,007 
2805 :101,169,128,133,014,076,098 
2811 : 201,014,165,097,208,006,174 
2817 :165,110,04 8, 222, 016,227,021 
2823 :165,102,069,110,048,210,199 
2829 :196,097,208,028,165,106,04 5 
2835 :197,098,208,022,165,107,048 
2841 :197,099,208,016,165,108,050 
284 7 :197,100,208,010,169,127,074 
2853 :197,112,165,109,229, 101,182 
2859 :240,186, 144,176, 176,208,149 
2865 :160, 000, 132,105,132,106,172 
2871 :132,107,162,14 4,165, 108,105 
2877 :133,110,016,018,073,255,154 
2883 :133, 108,165,109,073,255, 142 


2889 :133,109,230,109,208,002,096 
2895 :230,108,165,108,208,008,138 
2901 :162,136,165,109,240,022,151 
2907 :132,109,048,006,202,006,082 
2913 :109,042,016,250,133,106,241 
2919 :165,109,133,107,134,105,088 
2925 :132,108,132,109,165,014,001 
2931 : 016,003,032,255,019,164,092 
2937 : 060,192,007,176,003,076, l'23 
2943 :215,010,185,012,009,133,179 
294 9 : 085,185,017,009,133,086,136 
2955 :165,110,069,102,133,111,061 
2961 :165,097,032,084,000,076,087 
2967 :201,014,162,002,165,108,035 
2973 :197,100,208,006,164,109,173 
2979 :196,101,240,009,202,069,212 
2985 :100,048,018,176,002,162,163 
2991 : 004,138,037,0 60,240,002,144 
2997 :169,255,133,100,133,101,048 
3003 : 076,201,014,176,238,14 4,012 
3009 :238,165,097,208,004,133,014 
3015 :100,240,068,036,112,016,003 
3021 : 003,032,027,188,165,100,208 
3027 : 005,101,208,080,165,097,099 
3033 :201,129, 144,074,233, 14 4,118 
3039 : 016,070,201,249,176,022,189 
304 5 :105,007,170,165,099,208,215 
3051 : 059,165,098,232,240,006,Oli 
3057 :074,176,051,232,208,250,208 
3063 :134,100,240,019,170,165,051 
3069 : 099,133,040,165,098,074,094 
3075 :102,040,176,032,232,208,025 
3081 : 248,133,100,165,040,133,060 
3087 :101,036,102,016,003,032,049 
3093 :201,013,169,128,133,014,167 
3099 :166,060,224,007,176,003,151 
3105 : 076,153,Oli,076,254,012,103 
3111 : 07 6, 04 9, Oli,032,092,012,055 
3117 :165,014,048,003,032,066,117 
3123 :020,070,060,17 6,012,165,042 
3129 :108,037,100,133,100,165,188 
3135 :109,037,101,144,010,165,117 
3141 :108,005,100,133,100,165,168 
314 7 :109,005,101,133,101,076,088 
3153 : 201,014,076,072,178,169,023 
3159 : 000, 133,107,240,019, 165,239 
3165 :105,201,129,144,244,233,125 
3171 :144,016,237,170,165,106,169 
3177 :074,102,107,232,208,250,054 
3183 : 006,110,14 4, 002,073,255,189 
318 9 :133,108,165,107,144,002,008 
3195 : 073,255,133,109,096,032,053 
3201 : 231,255,032,177,012,165,233 
3207 : 057,133,080,165,058,133,249 
3213 : 081,160,006,208,005,032,121 
3219 :228,012,160,010,185,147,121 
3225 : 031,190,148,031,076,035,152 
3231 : 029,032,243,012,076,172,211 
3237 : 014,165,080,133,057,165,Oli 
3243 : 081,133,058,076,172,014,193 
324 9 :162,005,189,147,031,14 9, 092 
3255 : 045,202,016,248,166,046,138 
3261 :134,096,133,095,228,048,155 
3267 :208,004,197,047,240,019,142 
3273 :160,001,169, 000, 200, 145,108 
3279 : 095,192,006,208,24 9, 152,085 
3285 :101,095,14 4, 230,232,17 6, 167 
3291 :225,165,055,164,056,133,249 
3297 : 051,132,052,104,168,104,068 
3303 :162,248,154,072,152,072,067 
3309 :169, 000, 133,059,133,017,236 
3315 :173,155,031,133,065,173,205 
3321 :156,031,133,066,096,240,203 
3327 : 017,224,008,208,078,165,187 
3333 :109,229,101,133,101,165,075 
3339 :108,229,100,076,028,013,053 
334 5 : 024,165, 109, 101,101,133,138 
3351 :101,165,108,101,100,133,219 
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3357 :100,112,003,076,201,014,023 
3363 :162,000,134,098,134,099,150 
3369 :134,102,144,005,198,102,214 
337 5 : 032,201,013,169,000,133,083 
3381 : 014,133,112,032,219,188,239 
3387 : 076,201,014,165,098,005,106 
3393 : 099,208,238,165,100,048,155 
3399 : 234,165,102,016,003,032,111 
3405 :201,013,076,201,014,165,235 
3411 :100,069,108,133,102,165,248 
3417 :100,016,003,032,201,013,198 
3423 :165,108,016,016,073,255,216 
3429 :133,108,165,109,073,255,176 
3435 :133,109,230,109,208,002,130 
3441 : 230,108,165,100,166,101,215 
3447 :197,108,144,010,164,108,082 
3453 :133,108,165,109,134,109,115 
3459 :170,152,160,000,132,098,075 
3465 :132,099,132,100,132,101,065 
3471 :132,106,132,107,168,240,004 
3477 : 070,133,040,134,041,165,220 
3483 :040,005,041,240,158,070,197 
3489 : 040,102,041,14 4,025,024,025 
3495 :165,101, 101,109,133,101,109 
3501 :165,100, 101,108,133,100,112 
3507 :165,099,101,107,133,099,115 
3513 :165,098,101,106,133,098,118 
3519 :006, 109,038,108,038,107,085 
3525 : 038,106,14 4, 209,165,100,191 
3531 :073,255,133,100,165,101,006 
3537 : 073,255,133,101,230,101,078 
3543 :208,002,230,100,096,138,221 
3549 :240,191,074,170,144,019,035 
3555 : 024,165,101,101,109,133,092 
3561 :101,165,100,101,108,133,173 
3567 :100,165,0 99, 101,107,133,176 
3573 : 0 99, 006,109,038,108,038,131 
357 9 :107,144, 222, 169,025,133,027 
3585 : 022,032,224,169,076,172,184 
3591 : 014,165,057,166,058,133,088 
3597 :122,134,123,133,061,134,208 
3603 :062,076,225,167,133, 060, 230 
3609 :104,048,030,208,065,104,072 
3615 :133,110,104,133,105,104,208 
3621 :133,106, 104,133,107,104,212 
3627 :133,108,104,133,109,224,086 
3633 : 012,176,003,076,113,Oli,184 
3639 : 076,042,012,104,133,108,018 
364 5 :104,133,109,224,012,176,051 
3651 :021,224,010,176,014,164,164 
3657 : 014,016,016,224,007,176,014 
3663 : 003,07 6,153,Oli,076,254,140 
3669 : 012,076,049,Oli,076,04 5,098 
367 5 : 012,076,194,Oli,104,133,109 
3681 : 111,104,133,112,224,007,020 
3687 :17 6,003,07 6,080,010,076,012 
3693 :199,009,170,201,014,144,078 
3699 :163,189,122,008,133,085,047 
3705 :189,023,008,133,086,108,156 
3711 : 085,000,104,104,104,104,116 
3717 :165,122,166,123,133,057,131 
3723 :134,058,036,017,080,031,239 
372 9 :165,145,201,127,208,025,248 
3735 : 032,183,171,056,176,004,005 
3741 : 032,0 68,166,024,032,065,032 
3747 :168,032,183,171,104,104,157 
3753 : 032,104,168,036,017,112,126 
37 59 : 225,160,000,132,059,230,213 
37 65 : 057,208,023,230,058,208,197 
3771 : 019,160,000,024,101,057,036 
3777 .-133,057,14 4,010,230,058,057 
37.83 : 208,006,160,000,230,057,092 
3789 :240,246,177,057,016,156,073 
3795 :201,192,144,119,201,224,012 
3801 :176,091,170,188,043,008,125 
3807 :177,045,016,Oli,200,165,069 
3813 : 014,048,04 8,032,066,020,201 
3819 : 07 6,024,015,200,177,045, 004 


3825 :048,054,165,014,016,007,033 
3831 :132,034,032,255,019,164,115 
3837 : 034,200,036,112,016,003,142 
3843 : 032,027,188,165,097,14 5,14 5 
384 9 : 04 5,200,165,102,009,127,14 5 
3855 : 037,098,14 5,04 5,200,165,193 
3861 : 099,14 5,04 5,200,165,100,007 
3867 :14 5,045,200,165,101,14 5,060 
3873 : 045,160,000,132,059,076,24 9 
3879 :203,014,152,056,101,045,098 
3885 :133,073,165,046,105,000,055 
3891 : 076,097,019,201,230,176,082 
3897 : 020,133,059,230,057,240,028 
3903 : 010,201,228,144,003,07 6,213 
3909 :159,017,076,101,016,230,156 
3915 : 058,208,242,166,059,133,173 
3921 :059,240,126,164,014,208,124 
3927 :112,165,097,208,004,133,038 
3933 :100,240,0 68,036, 112,016,153 
3939 : 003,032,027,188,165,100,102 
394 5 : 005,101,208,069,165,097,238 
3951 : 201,129,144,063,233,14 4,001 
3957 : 016,059,201,249,176,022,072 
3963 :105,007,170,165,099,208,109 
3969 : 048,165,098,232,240,006,150 
397 5 : 074,176,040,232,208,250,0 91 
3981 :134,100,240,019,170,165,201 
3987 :099,133,040,165,098,074,244 
3993 :102,040,176,021,232,208,164 
3999 : 248,133, 100,165,040,133,210 
4 005 :101,160,128,036,102,016,196 
4 011 : 030,032,201,013,07 6,2 00,211 
4 017 -.015,165,101,072,165,100,027 
4 023 : 072,165,099,072,165,0 98,086 
4029 :072,165,097,072,165,102,094 
4 035 :072,152,072,24 0,008,165,136 
4 041 :101,072,165,100,072,152,095 
4 04 7 : 072,165,059,201,160,176,016 
4 053 : 072,170, 188,107,008,177, 167 
4059 : 045,016,020,133,014,200,135 
4065 :200,177,045,133,100,200,056 
4071 :177,045,133,101,160,000,079 
4 077 :132,013,076,203,014,200,107 
4 083 :177,04 5, 016,060,133,013,175 
4089 :152,056,101,045,133,073,041 
4095 :133,100,165,046,105,000,036 
4101 :133,074,133,101,160,002,0 96 
4107 :177,073, 133,099,136,132,24 9 
4113 : 014,177,073,133,0 98,136,136 
4119 :177,073,133,097,076,203,014 
4125 : 014,201,166,176,125,230,173 
4131 : 057,240,009,160,000,201,190 
4137 :164,144,057,076,159,017,146 
4143 : 230,058,208,243,200,177,139 
4149 :045,133,097,200,177,045,238 
4155 :133, 102,009,128,133,098,150 
4161 :200,177,045,133,099,200,151 
4167 :177,045,133,100,200,177,135 
4173 : 045,133,101,160,000,132,136 
4179 : 014,132,013,132,112,076,050 
4185 :203,014,177,057,230,057,059 
4191 :208,010,230,058,208,006,047 
4197 : 041,003,201,003,240,240,061 
4203 :133,072,133,096,177,057,007 
4209 :133,071,010,038,096,010,215 
4 215 :038,096,010,038,096,0 56,197 
4221 :229,071,168,165,096,229,059 
4227 : 072,170,152,024,101,04 5, 183 
4 233 :133,095,138,101,04 6, 133,015 
4239 : 096,165,095,105,002, 133, 227 
4 24 5 : 073,165,096, 105, 000, 133,209 
4251 : 074,076,008,019,201,231,252 
4257 :176,111,201,176,14 4, 015,216 
4263 :133,014,041,015, 133,101,092 
4 269 :160, 000, 132,100,132,013,198 
4275 : 076,203,014,162,000,201,067 
4 281 :170,17 6,125,160,001,133,182 
4287 : 014,201,167,144,006,208,163 
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4293 :019,177,057,170,200,177,229 
4299 :057,133,101,134,100,200,160 
4 305 :152,160,000,132,013,076,230 
4311 :190,014,177,057,133,097,115 
4317 :200,177,057,133,102,009,131 
4323 :128,133,098,200,177,057,252 
4329 :133,099,200,177,057,133,008 
4335 :100,200,177,057,133,101,239 
4 341 :160,000,132,013,132,014,184 
4347 :169,006,076,190,014,133,071 
4 353 : 014,041,031,016,165,160,172 
4359 : 001,177,057,230,057,208,225 
4365 : 014,230,058,208,010,240,005 
4371 : 242,201,240,17 6,232,041,127 
4377 : 007,160,001,133,097,132,043 
4 383 : 014,165,057,170,024,101,050 
4 38 9 : 097,133,057,164,058,144,178 
4 395 : 002,230,058,232,208,001,006 
4401 :200,134,098,132,099,076,020 
4407 : 012,024,134,013,24 0,04 5,011 
4 413 : 201,172,14 4,027,208,008,053 
4419 :134,014,032,123,175,076,109 
4425 :201,014,201,175,144,010,050 
4 431 : 032,072, 175,160,001,132, 139 
4 437 : 014,076,201,014,076,008,218 
4443 :175,133,014,165,144,016,226 
4 44 9 : 001,2 02,134,100,133,101,000 
4 455 : 07 6,201,014,134,014,169,199 
4 4 61 :168,160,174,032,162,187,224 
4 4 67 : 076,201,014,177,057,024,152 
4473 :101,047,133,105,200,177,116 
4 47 9 : 057,101,048,133,106,230,034 
4 485 : 057,208,002,230,058,160,080 
4 4 91 : 000,177,105,170,024,101,204 
4 4 97 : 047,133,095,200,138,017,007 
4503 :105,240,102,177,105,076,188 
4509 :180,017,208,213,177,057,241 
4515 :168,024,177,047,170,101,082 
4 521 : 047,133,095,200,138,017,031 
4 527 :047,240,078,177,047,101,0 97 
4533 :048,133,096,160,001,177,028 
4 539 : 095,133,070,136,177,095,125 
4 54 5 :133,069,160,004,177,0 95,0 63 
4 551 :133,Oli,010,105,005,101,052 
4 557 : 095,133,088,169, 000, 101,023 
4 563 : 096,133,089,200,104,04 8,113 
4 569 : 023,104,133,110,104,133,056 
4 57 5 :105,104,133,106,104,133,140 
4581 :107,104,104,032,092,012,168 
4 587 :165,109,072,165,108,072,158 
4 593 :104,133,114,209,095,14 4,016 
4599 :011,208,006,200,104,209,217 
4605 :095,144,005,076,069,178,052 
4 611 .*200,104,133, 113, 198,011,250 
4617 :240,078,200,104,048,023,190 
4 623 :104,133, 110,104,133,105,192 
4 629 :104,133, 106,104,133,107,196 
4 635 :104,104,032,092,012,165,024 
4 641 :109,072, 165, 108,072,104,151 
4 64 7 :133, 108,209,095,144,Oli,227 
4653 :208,006,200,104,209,095,099 
4 659 :144,005,076,0 69,178,200,211 
4 665 :104,133, 109,170,165,114,084 
4 671 :005, 113,024,240,010,032,231 
4 67 7 : 076, 179,138,101,109,170,07 4 
4 683 :152,164,034,101,108,134,000 
4 689 : 113, 133,114,198, Oli, 208,090 
4 695 :17 9, 138,166,114,010,038,220 
4 701 :114,036,069,048,070,036,210 
4 707 : 070,048,112,010,038,114,235 
4 713 :101,113,14 4,002,232,024,209 
4 719 :101,088,133,073, 138,101,233 
4 725 :114,101,089,133,074,036,152 
4 731 : 059,080,003,076,041,019,145 
4 737 :160,004,177,073,133,101,009 
4743 :136,177,073,133,100,136,122 
4749 :177,073,133,099,136,177,168 
4 755 : 073,133,102,009,128,133,213 


4 7 61 : 098,136,177,073,133,097,099 
4 7 67 :132,013,132,014,132,112,182 
4 773 : 076,203,014,101,088,133,012 
4 77 9 : 073,165, 114,101,089,133,078 
4 785 : 074,160,000,036,059,112,106 
4 791 : 019,200,177,073,133,101,118 
4797 :136,177,073,133,100,169,209 
4 803 :128,133,014,132,013,076,179 
4 809 : 203,014,165,014,04 8,125,002 
4 815 : 032,066,020,160,000,240,213 
4821 :118,101,113,144,002,232,155 
4 827 : 024,101,088,133,073,036,162 
4833 :059,112,120,133,100,138,119 
4839 :101,114,101,089,133,074,075 
4845 :133,101,169,255,133,013,017 
4851 :160,002,177,100,133,099,146 
4857 :136,132,014,177,100,133,173 
4 863 : 098,136,177,100,133,097,228 
4869 :076,203,014,160,000,036,238 
4 87 5 :059,177,095,048,166,200,24 4 
4881 :177,095,016,015,112,076,252 
4887 :133,013,166,073,165,074,135 
4893 :134,100,133,101,076,243,048 
4 899 : 018,112,003,07 6,129,018,135 
4905 :165,014,016,003,032,255,014 
4 911 : 019,165,112,016,003,032,138 
4 917 : 027,188,160,000,165,097,178 
4923 :145,073,200,165,102,009,241 
4 92 9 :127,037,098,145, 073,200,233 
4935 :165,099,145,073,200,165,150 
4941 :100,145,073,200,165,101,093 
4947 :145,073,160,000,132,059,140 
4 953 : 076,203,014,138,101,114,223 
4 959 :101,089,133,074,169,025,174 
4 965 :133,022,165,097,240,072,062 
4 971 :164,0 99,196,052,208,004,062 
4 977 :164,098,196,051,14 4, 060,058 
4 983 :165,101,240,056,164,052,129 
4 989 :165,051,056,229,097,176,131 
4 995 : 001,136, 196,050,208,002,212 
5001 :197,049,176,003,032,122,204 
5007 : 031,133,098,133,051,132,209 
5013 :099, 132,052,160,002,177,003 
5019 :100,133,035,136,177,100,068 
5025 :133,034,164,097,136,240,197 
5031 : 007,177,034,14 5, 051,136,205 
5037 :208,24 9, 177,034,145,051,013 
5043 :160,002,165,099,145,073,055 
5049 :136,165,098,145,073,136,170 
5055 :165,097,145,073,132,059,094 
5061 :076,203,014,104,024,105,211 
5067 : 001,133,085,104,105, 000, 119 
5073 :133,086,104,133,014,208,119 
5079 :014,133,112,104,133,102,045 
5085 :104,133,097,104,133,0 98,122 
5091 :104,133,0 99, 104,133,100,132 
5097 :104,133,101,108,085, 000, 252 
5103 :162,000,165,102,016,001,173 
5109 *.202,134,100,134,101,169,061 
5115 :128,133,014,096, 160,000,014 
5121 :132,014,132,112,132,097,108 
5127 :132,098,132,099,162,144,006 
5133 :165,100,133,102,016,005,022 
5139 : 032,201,013,165, 100,208,226 
514 5 : 008,162,136, 165,101,240,069 
5151 : 022,132,101,04 8,006,202,030 
5157 : 006, 101,042,016,250,133,073 
5163 : 098,165,101,133,099,134,005 
5169 : 0 97,132,100,132,101,096,195 
517 5 :165,014,041,128,197,012,100 
5181 : 240,247,170,048,189,036,223 
5187 :112,016,003,032,027,188,189 
5193 :165,097,201,129,144,160,201 
5199 :233, 14 4,016,069,166, 102,041 
5205 : 048,040,201,24 9, 176,016,04 7 
5211 :105,007,170,165,098,232,100 
5217 : 2 40,004,074,232,208,2 52,083 
5223 :134,100,240,013,170,165,157 
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522 9 : 0 98,074,102,099,232,208,154 
5235 -.2 50,133,100,165, 099,133,227 
5241 :101,169,128,133,014,096,250 
524 7 :170,032,077,185,165,098,086 
5253 : 056,106,102,099,232,2 08,168 
5259 :249,240,230,165,014,016,029 
5265 :009,166,101,165,100,016,190 
5271 : 043,076,072,178,165,102,019 
5277 : 04 8,24 9,036,112,016,003,109 
5283 : 032,027,188,165,097,201,105 
5289 :129,176,005,169,000,170,050 
5295 : 240,018,233, 14 5,016,227,030 
5301 :170,165,098,232,24 0,006,068 
5307 :074,102,099,232,208,250,128 
5313 :166,099,133,021,134,020,254 
5319 : 0 96,165,014,016,007,166, 151 
5325 :101,165,100,208,198,096,04 9 
5331 : 036, 112,016,003,032,027,181 
5337 :188,165,102,048,186,165,047 
5343 : 097,201,129,144,022,233,025 
534 9 :137,016,17 6, 170,165,098,223 
5355 : 232,240,004,074,232,208,201 
5361 : 252,170,134,101, 169,000,043 
5367 :133,100,096, 162,000,24 0,210 
5373 :24 5,166,097,24 0, 150,166,037 
5379 :101,208,025,165,100,133,223 
5385 : 022,166,099,228,052,208,016 
5391 : 015,165,0 98,197,051,208,237 
5397 : 009,024,101,097,133,051,180 
5403 :144,002,230,052,177,098,218 
540 9 : 076,187,021,165,014,24 0,224 
5415 : 003,032,255,019, 177,057,070 
5421 : 010,105,040,032,213,175,108 
5427 : 07 6,201,014,165,014,048,057 
5433 :005,133,102,076,203,014,078 
5439 :165,100,016,003,032,201,068 
54 4 5 : 013,07 6,203,014,165,014,042 
5451 :048,249,165,097,201,144,211 
5457 :144,013,036,112,016,003,149 
54 63 : 032,027,188,032,204,188,246 
54 69 : 07 6,201,014,032,066,020,246 
5475 :076,203,014,165,014,016,075 
5481 : 021,160,255,165,100,048,086 
54 87 : 006,200,005,101,24 0,001,152 
5493 :200,152,160,000,170,016,047 
54 99 :065, 136,04 8,062,032,043,253 
5505 :188,07 6,119,021,032,142,195 
5511 :020,177,020,133,101,132,206 
5517 :100,169,128,133,014,076,249 
5523 :203,014,165,211,076,138,186 
5529 :021,166,101,208,025,165,071 
5535 :100,133,022,166,099,228,139 
5541 : 052,208,015,165,098,197,132 
554 7 : 051,208,009,024,101,097,149 
5553 :133,051,144,002,230,052,021 
5559 :165,0 97,160,000,132,013,238 
5565 :133,101,132,100,169,128,184 
5571 :133,014,076,201,014,164,029 
5577 : 098,166,099,134,035,132,0 97 
5583 : 034,165,101,208,025,165,137 
5589 :100,133,022,165,097,240,202 
5595 :221,228,052,208,013,196, 113 
5601 : 051,208,009,024,101,098,204 
5607 :133,0 51,144,002,230,052,075 
5613 :165,097,240,200,032,176,123 
5619 :183, 160,000,132,013,132,095 
5625 : 014,07 6,203,014,165,014,223 
5631 : 048,092,165,097,208,004,101 
5637 :133,100,24 0,07 5,036,112,189 
564 3 : 016,003,032,027,188,165,186 
564 9 :100,005,101,208,057,165,141 
5655 : 097,201,129,14 4,051,233,110 
5661 :144,016,047,201,249,176,094 
5667 : 022,105,007,170,165,099,091 
5673 : 208,036,165,098,232,240,252 
567 9 : 006,074,17 6,028,232,208,003 
5685 : 250,134,100,240,026,170,205 
5691 :165,099,133,040,165,098,247 


5697 :074,102,040,176,009,232,186 
5703 : 208,24 8,133,100,165,040,197 
5709 :14 4,005,032,221,189,208,108 
5715 : 012,133,101,036,102,016,227 
5721 : 003,032,201,013,032,029,143 
5727 : 009,132,109,133,081,133,180 
5733 :110,133,108,169,107,133,093 
5739 : 080,132,014,136,200,185,086 
574 5 : 000,001,208,250,132,097,033 
5751 : 07 6,203,023,165,014,016,104 
5757 : 007,165,100,240,006,07 6,207 
5763 : 072,178,032,211,020,169,045 
5769 :001,133,097,133,014,165,168 
577 5 : 051,164,052,056,233,001,188 
5781 :17 6,001,136, 196,050,208,148 
5787 : 002,197,049,17 6,003,032,102 
5793 :122,031,133,051,132,052,170 
5799 :133,098,132,099,160,000,021 
5805 :165,101,14 5,098,07 6,012,002 
5811 :024,165,014,016,008,166,060 
5817 :101,165,100,240,005,208,236 
5823 :194,032,211,020,134,019,033 
5829 : 032,198,255,132,059,076,181 
5835 : 203,014,132,019,032,228,063 
5841 : 255,072,032,204,255,164,167 
584 7 : 013,048,026, 104,201,04 8,143 
5853 :144,004,201,058,144,001,005 
5859 :152,041,015, 133,101,132,033 
5865 :100,036,014,048,003,07 6,254 
5871 : 045,019,076,076,019,104,066 
5877 : 240,022,164,097,136,208,088 
5883 : 025,166,099,228,052,208,005 
5889 : 004,166,098,228,051,14 4,180 
5895 : 013,14 5,098,076,172,014,013 
5901 :166,097,240,24 9,133,097,227 
5907 : 208,041,133,105,169,001,164 
5913 :133,0 97,165,051,164,052,175 
5919 : 056,233,001,176,001,136,122 
5925 :196,050,208,002,197,04 9,227 
5931 :176,003,032,122,031,133,028 
5937 : 051,132,052,133,098,132,135 
594 3 : 099,165,105,160,000,14 5,217 
594 9 : 098,076,179,019, 165,014,100 
5955 : 048,003,032,211,020,165,034 
5961 :100,208,050,104,016,009,048 
5967 :104,208,04 4,104,170,208,14 9 
5973 : 046,240,038,104,048,035,084 
597 9 :104,056,233, 137,016,029,154 
5985 :168,104,170,104,104,104,083 
5991 :138,200,240,025,074,200,212 
5997 :208,252,170,208,018,240,181 
6003 : 010,165,014,016,009,166,239 
6009 :101,165,100,240,006,07 6,041 
6015 :072,178,032,211,020,104,232 
6021 :133,014,104,133,080,104,189 
6027 :133,081,208,004,165,080,042 
6033 :133,022,177,080,133,105,027 
6039 :177,057,201,053,144,035,050 
6045 :240,022,202,138,133,110,234 
6051 :162,000,024,229,105,176,091 
6057 : 031,073,255,170,228,101,003 
6063 :144,024,166,101,176,020,038 
6069 :138,024,229,105,073,255,237 
607 5 :144,010,152,176,005,152,058 
6081 :228,105, 14 4,002,166,105,175 
6087 :133,110,134,097,165,097,167 
6093 : 240,061,165,0 51,164,052,170 
6099 : 056,229,097,17 6,001,136,138 
6105 :196,0 50,208,002,197,04 9,151 
6111 :176,003,032,122,031,133,208 
6117 :098,133,051,132,099,132,106 
6123 :052,160,001,177,080,024,217 
6129 :101,110,133,034,200,177,228 
6135 : 080,105,000,133,035,164,252 
6141 : 097,136,240,007,177,034,176 
614 7 :145,098,136,208,24 9,177,248 
6153 : 034,145,098,166,022,224,186 
6159 : 031,176,029, 165,097,149,150 
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6165 : 000,165,098,14 9,001,165,087 
6171 : 099,14 9,002,160,255,132,0 56 
6177 : 013,200,134,100,132,101,201 
6183 :138,105,003,133,022,076,004 
618 9 :203,014,07 6,208,180,134,0 92 
6195 : 060,032,142,020,032,012,093 
6201 : 031,165,060,201,076,14 4,222 
6207 : 016, 134,073,208,004,162,148 
6213 : 000,240,003,032,012,031,131 
6219 : 032,0 60,184,208,003,138,188 
6225 :14 5,020,076,172,014,165,161 
6231 : 057,105,000,133,122,165,157 
6237 : 058,105,000,133,123,032,032 
624 3 :142,020,032,04 8,225,07 6,130 
624 9 :133,014,134,0 60,177,065,17 6 
6255 :016,005,162,042,076,055,211 
6261 :164,170,165,0 65, 105,000,018 
6267 :133,098,133,034,165,0 66,240 
6273 :105,000,133,099,133,035,122 
627 9 :056, 138,101,065,133,065,181 
6285 :144,002,230,066,134,097,046 
6291 : 070,0 60,17 6,003,07 6,179,199 
6297 : 019,138,032,176,183,036,225 
6303 : 014,048,003,076,04 8,019,111 
6309 : 076,207,018,166,101,208,173 
6315 : 029,169,025,133,022,166,203 
6321 : 0 97,240,035,165,099,197,242 
6327 : 0 52,208,015,165,0 98,197,150 
6333 : 051,208,009,024,101,097,167 
6339 :133,051,144,002,230,052,039 
634 5 :196,097,24 0,010,177,0 98,251 
6351 : 032,210,255,200,196,097,173 
6357 :208,246,076,086,025,165,251 
6363 : 014,04 8,0 93,208,200,165,17 9 
6369 :097,208,004,133,100,240,239 
637 5 : 074,036,112,016,003,032,248 
6381 : 027,188,165, 100,005,101,055 
6387 :208,056,165,0 97,016,052,0 69 
6393 :056,233,144,016,047,201,178 
6399 :249,176,022,105,007,170,216 
6405 :165,099,208,036,165,098,008 
6411 :232,240,006,074,176,028,255 
6417 :232,208,250,134,100,240,157 
6423 : 026, 170,165,0 99, 133,040,144 
6429 :165,098,074,102,040,176,172 
6435 : 009,232,208,24 8,133,100,197 
64 41 :165,04 0,14 4,005,032,221, 136 
6447 :189,208,012,133,101,036,214 
6453 :102,016,003,032,201,013,164 
6459 : 032,029,009,162,000,189,224 
64 65 -.000,001,240,006,032,210,042 
6471 : 2 55, 232,208,24 5, 169,029,185 
6477 :166,019,240,002,169,032,193 
6483 : 032,210,255, 160,000,177,14 9 
6489 :057,201,061,144,058,208,050 
64 95 : 0 61,165,211,056,233,010,063 
6501 :176,252,073,255,105,001,195 
6507 : 016,023,134,0 60,165,014,007 
6513 :048,003,032,211,020,165,080 
6519 :100,208,074,165, 101,070,0 69 
6525 :060,144,004,229,211,144,149 
6531 : 020,170,240,017,160,029,255 
6537 :165,019,240,002,160,032,2 43 
654 3 :152,032,210,255,202,208,178 
654 9 : 24 9,160, 000, 132,0 59,076,057 
6555 :203,014,170,169,013,032,244 
6561 :210,255,165,019,016,005,063 
6567 :169,010,032,210,255,224,043 
6573 : 067,14 4,007,032,204,255,114 
6579 :169, 000, 133,019,076,172,236 
6585 :014,165,014,240,009,166,025 
6591 :101,165,100,240,006,076,111 
6597 :072,178,032,211,020,134,076 
6603 :019,032,201,255,177,057,176 
6609 :201,068,176,200,132,059,021 
6615 :0"76,203,014,165,014,048,223 
6621 : 003,032,211,020,165,100,240 
6627 :208,223, 165, 101,032,195,127 


6633 :255,176,003,076,172,014,161 
6639 :201,240,208,007,132,056,059 
664 5 :134,055,076,131,012,07 6,217 
6651 : 004,225,169,064,04 4,169, 158 
6657 :128,005,017,208,007,169,023 
6663 :191,04 4,169, 127,037,017,080 
6669 :133,017,076,172,014,165,078 
667 5 : 057,133,061,165,058,133,114 
6681 : 062,076, 172,014,134,060,031 
6687 :165,019,240,039,162,000,14 4 
6693 : 032,207,255,201,013,240,217 
6699 : Oli,157,000,002,232,224,157 
6705 :089,208,241,076,113,165,173 
6711 :169,000,157,000,002,168,039 
6717 :165, 14 4,041,003,208,017,127 
6723 :173,000,002,208,046,240,224 
6729 : 217,032,24 9, 171,160,000,134 
6735 :173,000,002,208,034,132,116 
6741 : 067,032,183,171,076, 172,018 
674 7 : 014,134,060,164,067,185,203 
6753 : 000,002,240,004,201,058,090 
6759 : 208,012,165,019,208,182,129 
67 65 :152,240,233,032,069, 171,238 
6771 : 208,213,200,185,000,002,155 
677 7 : 201,032,24 0,2 48,132,122,072 
6783 :162,002,134,123, 036,013,085 
6789 : 048,095,032,121,000,032,205 
6795 :243,188,164,122,185,000,017 
6801 : 002,240,022,201,058,240,14 0 
6807 : 018,201,04 4,240,014,032,188 
6813 : 098,171,165,0 61,164,062,110 
6819 :133,057, 132,058,076, 172,023 
6825 : 014,132,067,166,0 60,224,064 
6831 :085, 176,027,166,019,240,120 
6837 : 007,032,204,255, 169,000,080 
684 3 :133,019, 170,2 4 0,013,160,154 
684 9 : 000,185,2 52,172,240,006,024 
6855 : 032,210,255,200,208,245,0 69 
6861 : 036,013,048,003,076,158,027 
6867 :024,164,0 97,240,Oli,169,14 8 
6873 :000,133, 101,169, 105, 133,0 90 
687 9 :100,07 6,123,019,07 6,179,028 
6885 :019, 134,107,132,106,170,12 9 
6891 : 240,036,201,034,208,024,210 
6897 :230,106,230,122,200,185,034 
6903 : 000,002,240,022,201,034,234 
6909 :208,24 6, 152,200,208,015,002 
6915 : 200,185,000,002,240,008,126 
6921 :201,058,240,004,201,044,245 
6927 :208,242,152,056,229,106,240 
6933 :133,0 97,076, 143,026,134,118 
6939 : 060,138,105, 14 6,133,061,158 
694 5 :162,005,134,085, 160,239,050 
6951 :173,001,002,14 5,0 60,169,077 
6957 : 064,160,251,14 5,0 60, 174,131 
6963 : 002,002,169,001,032,090,091 
6969 : 027,010,208,015,144,013,218 
697 5 : 042,032,090,027,04 8,007,053 
6981 : 202,240,Oli,201,000,24 0,195 
6987 :233, 198,085,208,213,076,0 64 
6993 :157,014,197,101,208,245,235 
6999 :076,201,014,145,060,074,145 
7005 :145,060,177,060,096,165,028 
7 011 : 014,041,128,133,012,032,203 
7 017 : 200,019,032,055,020,032,207 
7023 :015,188,076,145,027,169,219 
7029 : 001,166,014,04 8,013, 169,016 
7035 :129, 133,105, 169,128,133,152 
7041 :106,010,133, 110,133,107,216 
704 7 :133,109,074,133, 108,138,062 
7053 : 041,128,133,012,032,200,175 
7059 :019,032,055,020,186,189,136 
7065 : 001,001,010,208,030,160,051 
7071 : 009,176,002,160,016, 132,14 2 
7077 : Oli, 165,074,221,003,001,128 
7083 : 2 08,005,165,073,221,002,077 
7089 : 001,008,138,024,101,Oli,204 
7095 :170,04 0,208,221,154,186,138 
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7101 :224,064,176,003,076,053,017 
7107 :164,165,012,240,015,165,188 
7113 :101,072,165,100,072,165,108 
7119 :109,072,165,108,072,076,041 
7125 :243,027,165,102,009,127,118 
7131 : 037,098,133,098,169,234,220 
7137 :160,027,133,034,132,035,234 
7143 :076,067,174,032,252,187,251 
714 9 :032,043,188,032,056,174,250 
7155 :165,058,072,165,057,072,064 
7161 :165,074,072,165,073,072,102 
7167 :165,012,072,076,172,014,254 
7173 :105,008,170,208,001,186,171 
7179 :165,074,221,003,001,208,171 
7185 :007,165,073,221,002,001,230 
7191 :240,028,189,001,001,010,236 
7197 :208,008,138,176,227,105,123 
7203 :016,170,208,228,076,048,013 
7209 :173,186,189,003,001,133,214 
7215 : 074,189,002,001,133,073,007 
7221 :189,001,001,010,208,236, 186 
7227 :154,200,17 6,038,138,105, 102 
7233 .-006,072,105,006,133,036,167 
7239 :104,032,162,187,186,189,163 
724 5 : Oli,001,133,102,133,012,213 
7251 :165,073,164,074,032,103, 182 
7257 :184,032,208,187,160,001,093 
7263 : 032,093,188,07 6, 168,028,168 
7269 :189,007,001,024,113,073,252 
727 5 :145,073, 133,101,132,012,191 
7281 :136,189,006,001,016,002,207 
7287 :132,012,113,073, 14 5,073,155 
7293 :133,100,189,009,001,168,213 
7299 :189,008,001,197,100,208,066 
7305 : 004,196,101,240,032,160,102 
7311 : 000,069, 100,04 8,039,176,063 
7317 : 002,160,001,196,012,208,216 
7323 : 018,138,105,008,170,154,236 
732 9 :160,000,132,059,07 6,203,023 
7 335 : 014,056,186,229,012,240,136 
7341 : 017,189,005,001,133,058,0 64 
734 7 :189,004,001,133,057,076,127 
7353 :172,014,17 6,217,14 4,217,101 
7 35 9 :138,024,105,016, 170,154,030 
7365 :160,000,132,059,076,203,059 
7371 : 014,132,059,165,014,016,091 
7377 : Oli,165,100,005,101,208,031 
7383 : 0 68,169,002,07 6,191,014,223 
7389 :165,097,208,059,240,24 5,211 
7395 :132,059,200,134,060,165,209 
7 401 : 014,240,007,165, 100,240,231 
7407 =006,076,072,178,032,211,046 
7413 =020,177,057,170,165,101,167 
7419 =240,005,010,209,057,144,148 
7425 =004,138,076,188,014,168,077 
7431 =070,060,176,018,136,138,093 
7437 =208,002,169,002,101,057,040 
7443 =072,165,058,105,000,072,235 
7449 =169,141,072,200,177,057,073 
7455 =170,200,177,057,133,057,057 
7461 =134,058,160,000,076,207,160 
7467 =014,105,015,170,154,104,093 
7473 =201,141,240,030,010,208,111 
7479 =008,186,138,144,240,105,108 
7485 =007,208,238,076,224,168,214 
7491 =104,133,073,104,133,074,176 
7497 =104,145,073,200,192,005,024 
7503 =208,248,160,000,104,133,164 
7509 =058,104,133,057,076,207,208 
7515 =014,132,059,165,014,016,235 
7521 =009,165,100,005,101,208,173 
7527 =200,076,203,014,165,097,090 
7533 =208,193,076,203,014,132,167 
7539 =059,165,014,016,011,165,033 
7545 =100,005,101,240,009,169,233 
7551 =001,076,191,014,165,097,159 
7557 =208,247,200,177,057,076,074 
7563 =188,014,200,177,057,024,031 


7569 =101,045,133,100,200,177,133 
7575 =057,101,046,133,101,200,021 
7581 =177,057,101,045,133,108,010 
7587 =200,177,057,101,046,133,109 
7593 =109,169,005,101,057,133,231 
7599 =106,165,058,105,000,133,230 
7605 =107,185,106,000,145,100,056 
7611 =136,016,248,160,005,208,192 
7617 =198,160,002,177,057,024,043 
7623 =101,045,133,071,136,177,094 
7629 =057,101,046,133,072,165,011 
7635 =057,105,003,072,165,058,159 
7641 =105,000,072,177,071,208,082 
7647 =003,076,174,179,133,058,078 
7653 =136,177,071,133,057,160,195 
7659 =002,177,071,133,073,200,123 
7665 =177,071,133,074,200,177,049 
7671 =073,072,136,016,250,165,191 
7677 =074,072,165,073,072,165,106 
7683 =014,076,043,019,200,177,020 
7689 =057,132,012,133,011,200,042 
7695 =177,057,133,069,200,177,060 
7701 =057,133,070,165,049,133,116 
7707 =095,229,047,133,105,165,033 
7713 =050,133,096,229,048,170,247 
7719 =005,105,240,033,160,005,075 
7725 =024,177,057,101,047,133,072 
7731 =107,136,177,057,101,048,165 
7737 =133,108,160,001,177,107,231 
7743 =136,017,107,208,088,165,016 
7749 =105,145,107,200,138,145,141 
7755 =107,032,148,177,032,008,067 
7761 =164,160,000,132,059,132,216 
7767 =114,162,005,165,069,145,235 
7773 =095,016,001,202,200,165,004 
7779 =070,145,095,016,002,202,117 
7785 =202,134,113,165,011,160,122 
7791 =004,145,095,208,003,032,086 
7797 =200,019,032,142,020,200,218 
7803 =232,208,003,024,105,001,184 
7809 =145,095,200,138,145,095,179 
7815 =032,076,179,164,034,134,242 
7821 =113,133,114,198,011,208,150 
7827 =224,032,170,178,169,006,158 
7833 =076,188,014,076,077,178,250 
7839 =200,132,010,032,223,030,018 
7845 =070,012,170,240,021,032,198 
7851 =090,226,198,011,240,014,182 
7857 =032,002,031,134,186,198,248 
7863 =011,240,005,032,002,031,248 
7869 =134,185,032,197,030,076,075 
7875 =172,014,165,060,201,094,133 
7881 =144,005,208,015,076,089,226 
7887 =225,165,185,208,002,230,198 
7893 =185,032,111,225,076,174,248 
7899 =167,076,111,225,134,060,224 
7905 =160,001,162,000,134,183,097 
7911 =134,023,134,185,134,144,217 
7917 =132,012,132,186,132,123,186 
7923 =169,025,133,022,177,057,058 
7929 =133,011,230,057,208,002,122 
7935 =230,058,096,070,012,144,097 
7941 =006,076,200,020,076,072,199 
7947 =178,104,024,105,001,133,044 
7953 =069,104,105,000,133,070,242 
7959 =104,016,010,104,208,236,189 
7965 =104,133,101,170,108,069,202 
7971 =000,104,048,226,104,056,061 
7977 =233,137,016,220,168,104,151 
7983 =170,104,104,104,138,200,099 
7989 =240,231,074,200,208,252,234 
7995 =240,225,032,223,030,032,073 
8001 =002,031,134,184,198,011,113 
8007 =240,032,032,002,031,134,030 
8013 =186,224,003,144,002,198,066 
8019 =185,198,011,240,017,032,254 
8025 =002,031,134,185,198,011,138 
8031 =240,008,032,200,019,198,024 
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8037 : 013,032,090,226,032,192,174 
8043 :255,176,003,076,172,014,035 
804 9 : 076,239,025,234,234,234,131 
8055 : 076,008,175,032,038,181,117 
8061 :165,051,164,052,056,229,074 
8067 : 097,17 6,001,136,196,050,019 
8073 :208,002,197,049,144,001,226 
807 9 : 096,076,053, 164,199,039,002 
8085 :223,040,223,040,159,031,097 
8091 :167,031,192,031,177,016,001 
8097 : 001,218,170,000,000,022,0 60 
8103 : 003,0 68,069,07 6,003,083,213 
8109 : 069,081,003*080,082,071,047 
8115 : 003,085,083,082,003,082,005 
8121 : 069,07 6,003,088,088,088,085 
8127 :255,021,231,033,032,018,013 
8133 : 080,082,0 69,077,073,032,098 
8139 : 085,078,032,084,065,083,118 
814 5 : 084,079,032,080,0 69,082,123 
8151 : 032,080,082,079,083,0 69,128 
8157 : 071,085,073,082,0 69,032,121 
8163 :146,192,231,033,032,018,111 
8169 : 082,073,083,080,079,078,196 
817 5 : 068,073,032,083,069,078,130 
8181 : 0 90,0 65,032,080,082,0 69,151 
8187 : 077,0 69,082,0 69,032,082,150 
8193 : 0 69,084,085,082,078,032,175 
8199 :14 6,193,190,051,0 62,176,057 
820 5 :168,14 4,080,032,000,000,181 
8211 : 023,176,168,14 4,080,033, 131 
8217 : 000,000,023,177,167,002,138 
8223 :134,023,231,039,14 7,032,125 
822 9 : 032,032,032,032,032,032,229 
8235 : 032,032,032,018,032,082,015 
8241 : 069,067,085,080,0 69,082,24 5 
824 7 : 079,032,070,073,076,0 69,198 
8253 : 032,14 6,032,032,032,032,111 
8259 :032,032,032,032,032,032,003 
8265 : 032,062,166,032,016,001,126 
8271 :070,197,000,007,181,016,038 

827 7 : 001,084,198,000,009,232,097 
8283 :194,232,195,176,196,181,241 

828 9 :160,004,017,132,164,009,071 
8295 : 074,019,17 6,197,176,198,175 
8301 :185, 199,177,200,242,201,033 
8307 :137,202,233,04 8,203,231,145 
8313 : 035,018,084,073,080,07 9,234 
8319 : 032,032,078,079,077,069,238 
8325 : 032,032,032,032,032,032,069 
8331 : 032,032,032,032,032,084,127 
8337 : 082,046,083,069,084,04 6,043 
834 3 : 076,085,078,071,04 6,146,141 
834 9 : 204,231,022,017,017,032,168 
8355 : 018,04 9,14 6,032,070,073,039 
8361 :076,069,032,067,065,078,044 
8367 : 067,0 69,076,076,0 65,084,100 
8373 : 07 9,0 62,231,024,017,032,114 

837 9 : 018,0 50,146,032,084,085,090 

838 5 : 084,084,073,032,073,032,059 
8391 : 070,073,076,069,032,067,074 
8397 : 065,078,067,04 6,0 62,231,242 
84 03 : 015,017,032,018,051,14 6,234 
8409 : 032,067,079,078,086,065,112 
8415 : 07 6,073,068,065,0 62,231,030 
8421 : 024,017,032,018,052,146,006 
8427 : 032,0 68,073,082,069,067,114 
8433 : 084,07 9,082,089,032,065,160 
8439 : 077,080,076,073,065,084,190 
844 5 : 0 65,062,231,019,017,032,167 
84 51 : 018,053,14 6,032,067,065,128 
84 57 : 078,067,069,076,076,0 65,184 
84 63 : 032,070,073,076,069,062,141 
84 69 : 231,010,017,032,018,054,127 
8 47 5 :14 6,032,070,073,078,069,239 
8 481 : 062,080,231,023,017,017,207 
8487 :032,032,067,079,083,065,141 
84 93 : 032,083,067,0 69,071,076, 187 
84 99 : 073,032,032,032,032,052,04 8 


8505 :157,157,157,060,131,083,034 
8511 :131,049,205,141,177,004,002 
8517 :141,182,001,013,031,Oli,192 
8523 : 236,14 5,14 5,145,145,062,185 
852 9 : 025,033,034,233,145,060,099 
8535 : 240,064,233,018,060,141,075 
8541 : 0 60,233,14 6,062,17 6,206,208 
854 7 :177,202,167,003,132,160, 172 
8553 : 010,017,019,233,147,062,08Ì 
8559 :141,027,014,034,016,036,123 
8565 : 097,036, 122,036,224,037,157 
8571 : 255,038,179,079,177,164,247 
8 577 : 007,050,207,178,164,007,230 
8583 : 050,208,176,164,007,050,022 
858 9 :166, 127,012,209,14 5,181,213 
8 595 : 001,031,026,231,019,032,231 
8601 :032,032,032,032,032,018,075 
8607 :084,073,080,079,032,069,064 
8 613 : 082,082,0 65,084,079,14 6,191 
8 619 : 062,181,209, 145,164,009,173 
8 625 : 210,252,164,007,050,167,003 
8631 : 001,000,253,164,007,050,14 6 
8637 : 009,007,211,235,032,032,203 
8643 : 032,143,04 8,007,179,053,145 
864 9 : 212,235,032,032,032,144,120 
8655 : 048,007,179,053,213,237,176 
8661 : 032,032,032,032,032,147,008 
8667 : 048,007,181,0 53,214,233,187 
8673 : 018,060,146,0 60,234,14 6, 121 
867 9 :032,060,151,0 60,24 4,0 65,075 
8685 :152,031,016,180,066,233,147 
8691 : 018,060,14 6,060,234,14 6,139 
8697 : 032,060,151,0 60,069,14 8,001 
8703 : 060,149,0 60,150,062,152,120 
8709 : 031,010,180,066, 148,060,244 
8715 :149,060,150,067,029,026,236 
8721 :035, 109,231,027,147,017,071 
8727 : 017,018,078,079,077,0 69,105 
8733 : 032,070,073,076,069,032,125 
8739 : 0 68,0 65,032,082,069,067,162 
874 5 : 085,080,0 69,082,04 6,032,179 
8751 :146,062,080,153,083,153,212 
8757 : 047,218,154,219,177,198,042 
8763 :154,160,006,017,153,134,171 
8769 :177,054,233,042,002,031,092 
877 5 : 009,134,177,008,218,166,015 
8781 : 080,198,019, 134,166,080,242 
8787 : 004,031,004,240,218,153,221 
8793 : 231,016,032,032,032,032,208 
8799 : 032,032,032,032,032,032,031 
8805 : 032,032,032,032,032,032,037 
8811 : 007,154,052,217,231,016,016 
8817 : 018,083,084,079,032,067,220 
8823 : 0 69,082,067,065,078,068,036 
8829 : 079, 146,032,032,0 60,153,115 
8835 : 062,137,202,191,184,177,060 
8841 : 096,003,177,066,233,073,017 
884 7 :139,007,067,177,200,233,198 
8853 : 035,139,007,135, 184,135,016 
8859 : 096,004,177,066,235,085,050 
8865 : 049,058,060,135,060, 156, 167 
8871 : 060,138,060,136,067,177,037 
8877 : 066,236,0 66,04 5,080,058,212 
8883 :060,135,0 60,17 6,067,135,04 4 
8889 :072,157,070,135,072,158,081 
8895 : 070,177,223,184,160,031,012 
8 901 : 017,131,070,131,233,032,043 
8 907 : 002,082,035,048,17 6, 197,231 
8 913 :255,160,005,017,135,072,085 
8919 :130,070,130,232,002,031,042 
8925 :005,176,051,194,133,130,142 
8931 :228,007,019,232,215,179,083 
8937 :198,242,160,006,017,151,239 
8943 :134,164,007,007,215,019,017 
8949 :153,151,154,052,002,082,071 
8955 : 036,159, 160,031,020,157,046 
8961 : 232,002,031,005,176,051,242 
8967 : 221,158,232,002,031,005,144 
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8973 :176,051,222,157,050,202,103 
897 9 :158,050,200,138,176,005,234 
8985 : 082,034,157,231,015,145,177 
8991 : 018,078,079,078,032,084,144 
8997 :082,079,086,065,084,079,000 
9003 :14 6,032,060,151,0 62,135,117 
9009 :0 97,177,097,180,097,233,162 
9015 :017,0 60,128,062,160,032,002 
9021 : 070,160,032,232,002,082,127 
9027 : 035,059,021,025,031,193,175 
9033 :177,072,160,033,085, 160,24 8 
9039 : 034,087,160,035,087,160,130 
904 5 : 036,081,160,033,234,04 8,165 
9051 : 048,002,088,160,033,0 61,227 
9057 :160,034,061,160,035,061,096 
9063 :160,036,062,025,035,048,213 
9069 :176,220,029,231,043,032,072 
9075 : 032,018,048,146,0 68,0 69,240 
9081 : 076,032,018,04 9,14 6,083,013 
9087 : 0 69,081,032,018,050,14 6,011 
9093 : 080,082,071,032,018,051,211 
9099 :146,085,083,082,018,052,093 
9105 :14 6,082,069,076,032,018,056 
9111 : 053,14 6,077,0 69,078,085,147 
9117 : 0 62,080,231,015,017,032,082 
9123 :018,084,073,080,079,146,131 
912 9 : 032,032,032,050,157,157,117 
9135 :157,060,160,013,083,141,021 
9141 :176,004,141,181,001,013,185 
914 7 : 082,035,158,141,181,002,018 
9153 : 082,035,04 8,178,166,032,222 
9159 :159,177,008,009,007,224,015 
9165 :037,141,166,128,007,224,140 
9171 :038,177,066,235,085,04 9,093 
9177 : 058,060,160,039,0 60,156,238 
9183 : 060,138,060,136,067,177,0 93 
918 9 : 066,236,066,045,080,058,012 
9195 : 060,135,060,160,037,067,242 
9201 :135,066,160,038,051,060,239 
9207 : 069, 177,0 66,235,085,050,161 
9213 : 058,060,135,060,156,060,014 
9219 :138,0 60,136,067,029,151,072 
9225 :177,177,054,176,051,002,134 
9231 : 082,036,185,231,027,018,082 
9237 : 068,0 65,032,082,0 69,067,14 8 
9243 : 085,080,069,082,065,082,234 
924 9 : 069,032,040,083,047,078,126 
9255 : 047,0 69,041,032,14 6,032,150 
9261 : 032,032,060,080,231,008,232 
9267 -.017,032,032,032,078,157,143 
9273 :157,157,060,131,083,131,008 
927 9 : 233,083,002,031,021,026,203 
9285 :035, 112,177,066,236,0 66,249 
9291 : 04 5,080,058,060,135,0 61,002 
9297 :160,037,166,032,007,067,038 
9303 :131,177,052,233,069,002,239 
9309 : 082,036,185,029,231,016,160 
9315 :018,082,069,067,085,080,244 
9321 : 069, 082,079,032,084,085,024 
9327 : 084,084,073,14 6,062, 177,225 
9333 : 014,206,025,036,247,231,108 
9339 : Oli,018,067,079,078,086,206 
934 5 :065,07 6,073,0 68,065,146,110 
9351 :062,026,035,109,177,097,129 
9357 :191,184,177,096,003,177,201 
9363 :066,233,086,139,007,067,233 
9369 : 026,035,073,025,035,048,139 
9375 :231,013,084,082,079,086,222 
9381 : 065,084,079,032,070,073,056 
9387 : 076,069,032,060,151,062,109 
9393 .-140,062,026,033,127,026,079 
9399 : 035,112,080,231,023,017,169 
94 05 : 067,07 9,078,086,065,076,128 
9411 : 073,068,065,032,040,083,044 
9417 : 047,078,041,032,032,032,207 
9423 : 083,157,157,157,060,131,184 
942 9 : 083,131,233,083,002,082,059 
9435 : 036,122,025,035,04 8,231,204 


94 41 : 020,018,083,084,065,077,060 
94 4 7 : 080,065,032,068,073,082,119 
94 53 : 069,067,084,079,082,089,195 
9459 : 032,058,018,062,026,035,218 
94 65 :109,080,231,020,032,083,036 
9471 : 085,032,083,084,065,077,169 
9477 : 080,0 65,078,084,069,032,157 
9483 : 032,032,078,157,157,157,112 
948 9 : 060,131,083,176,216,131,046 
94 95 :233,083,002,031,009,177,046 
9501 : 014,216,180,180,096,002,205 
9507 :026,038,080,140,062,177,046 
9513 :200,152,031,006,180,066,164 
9519 :140,0 67,171,031,027,231,202 
9525 : 021,032,065,067,067,0 69,118 
9531 :078,0 68,073,032,083,084,221 
9537 : 065,077,080,065,078,084,002 
954 3 : 069,033,033,033,062,079,124 
954 9 :191,184,177,096,003,177,137 
9555 : 066,233,073, 139,007,067,156 
9561 :233,035,139,007,135,184,054 
9567 :135,096,004,026,035,073,208 
9573 :242,202,177,200,177,066,141 
9579 :235,085,049,058,060,135,217 
9585 : 060,156,060,138,060,136,211 
9591 : 067,177,066,236,066,04 5,008 
9597 : 080,058,060,135,060,176,182 
9603 : 067,135,072,157,070,135,255 
9609 : 072,158,070,177,223,184,253 
9615 :160,031,017,131,070,131,171 
9621 : 233,032,002,082,037,24 6,013 
9627 :176,197,255, 160,005,017,197 
9633 :135,072,130,070,130,232,162 
9639 :002,031,005,176,051,194,114 
9645 :133,130,228,007,019,232,154 
9651 :215,179,198,242,160,006,155 
9657 :017,151,134,164,007,007,153 
9663 :215,019,026,033,127,142,241 
9669 :145,176,002,012,031,005,056 
9675 :026,036,008,179,164,007,111 
9681 :176,051,002,082,037,246,035 
9687 :160,031,020,157,232,002,04 9 
9693 : 031,005,176,051,221,158,095 
9699 :232,002,031,005,17 6,051,212 
9705 : 222,157,050,202,158,050,048 
9711 :200,138,176,005,082,037,109 
9717 :105,142,082,036,185,137,164 
9723 :202,025,035,048,231,017,041 
9729 : 032,018,067,065,078,067,072 
9735 : 069,076,07 6,079,032,070,153 
9741 : 073,076,069,032,146,062,215 
9747 : 026,035, 109,231,023,078,009 
9753 : 079,077,0 69,032,070,073,169 
9759 : 076,0 69,032,0 68,065,032,117 
9765 : 067,0 65,078,067,0 69,076,203 
9771 : 07 6,065,082,069,0 62,080,221 
9777 :234,017,032,060,131,083,094 
9783 :177,097,191,184,177,096,209 
978 9 : 003, 177,066,233,083, 139,250 
97 95 : 007,233,058,007,131,007,254 
9801 : 067,026,035,073,025,035,078 
9807 :048,242,201,166,144,224,080 
9813 : 037,176,200,233,073, 139,175 
9819 : 007,191,184,177,096,004,238 
9825 : 026,035,073,233,035,135,122 
9831 :184,135,0 96,004,177,066,253 
9837 :235,085,04 9,058,0 60,135,219 
984 3 : 060,156,0 60,137,0 60,136,212 
984 9 : 067,177,066,236,0 66,045,010 
9855 : 080,058,060,135,060,160,168 
9861 : 037,067,232,215, 177,198,035 
9867 : 24 8,160,006,017,135,072,009 
9873 :130,070,151,130,007,215,080 
987 9 : 019,139,060,235,032,032,156 
9885 : 032,060,151,062,152,031,133 
9891 : 012,180,0 66,139,0 60,234,086 
9897 : 032,032,060,151,0 67,135,134 
9903 : 097,177,097,029, 166,142,115 
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9909 : 051,0 62,177,097,135,097,032 
9915 :180,097,079,079,128,001,239 
9921 : 0 92,095,000,000,082,128,078 
9927 : 000,093,095,000,000,073,204 
9933 : 000,131,064,000,000,000,144 
9939 : 067,0 67,000,000,000,000,089 
994 5 : 000,075,000,132,000,000,168 
9951 :000,000,067,072,132,016,254 
9957 :000,000,000,083,000,129,185 
9963 : 000,000,000,000,084,082,14 5 
9969 :134,028,000,000,000,084,231 
9975 : 000,134,028,000,000,000,153 
9981 : 0 68,210,001,197,018,000,235 
9987 : 000,073,206,026,209,018,023 
9993 : 000,000,082,000,129,000,220 
9999 : 000,000,000,082,084,000,181 
10005 : 000, 000,000, 000,068,082, 171 
10011 : 000,000,000, 000, 000,078, 105 
10017 : 207,016,094,095, 000,000, 189 
10023 : 07 6,000, 133, 000, 000,000, 24 8 
10029 : 000,084,128,000, 094,095, 190 
10035 :000,000, 083, 128, 001, 093, 100 
10041 : 095, 000, 000,070,069, 129, 164 
10047 : 000,000, 000,000, 070, 069, 202 
10053 :172, 000, 001,000, 033, 000,019 
10059 : 000,000, 000,000, 000, 000,07 5 
100 65 : 000,000, 000,000, 000, 000, 081 
10071 : 000, 000, 000,000,000, 000, 087 
10077 : 000,000,000,000, 000, 000, 093 
10083 : 000,000,000,000,000, 000, 099 
10089 : 000,000, 000,000, 000, 000, 105 
100 95 : 000,000, 000,000, 000, 000,111 
10101 :000,000,000,000,000,000,117 
10107 : 000,000,000,000, 000, 000, 123 
10113 : 000,000,000,000,000,000, 12 9 
10119 :000,000,000,000,000,000,135 
10125 : 000,000,000,000, 000, 000, 141 
10131 : 000,000,000, 000, 000, 000, 14 7 
10137 : 000,000,000,000, 000, 000, 153 
10143 : 000,000,000,000, 000, 000, 159 
10149 :000,000,000,000,000,000,165 
10155 : 000,000, 000,000, 000, 000, 171 
10161 : 000, 000, 000, 000, 000,000,177 
10167 : 000,000,000,000, 000,000, 183 
10173 : 000, 000,006, 17 8,201,032,094 
1017 9 : 255, 227,000, 169, 07 7,197,096 
10185 : 000, 000,000,000, 000,077,022 


10191 :196,000, 000,000,000,000, 147 
10197 : 088,128,000,000, 000,000, 173 
10203 : 000, 082,128, 000,000,000, 173 
10209 : 000, 000,07 3, 000,000, 000, 04 2 
10215 : 000, 000,000,067,067, 000,109 
10221 : 000, 000,000, 000,075, 000, 056 
10227 : 000, 000,000, 000,000, 067,054 
10233 : 072,000,000, 000,000,000, 065 
10239 : 083, 000, 000, 000,000,000, 082 
1024 5 : 000, 084,082, 000,000,000,171 
10251 : 000,000, 084,000,000,000,095 
10257 : 000, 000, 000,068,210, 000, 039 
102 63 : 000,000, 000, 000,073,206, 04 6 
102 69 : 000,000,000,000,000,082,111 
10275 : 000, 000,000,000,000,000, 035 
10281 : 082, 084,000,000,000, 000,207 
10287 : 000, 084,0-84,000,000,000,215 
10293 : 000,000, 083,083,000, 000,219 
10299 : 000,000, 000,070,084,000,213 
10305 : 000,000, 000,000,084,198,091 
10311 : 000,000, 000,000,000,07 6, 14 7 
10317 : 070,000, 000,000,000, 000, 14 7 
10323 : 084,212, 000,000,000, 000, 123 
10329 : 000,083,211,000,000, 000, 127 
10335 : 000,000, 07 6, 198,000,000, 113 
10341 : 000,000, 000,078,198,000, 121 
10347 : 000,000, 000,000,083, 080,014 
10353 : 000,000, 000,000,000, 078, 191 
10359 : 207,000, 000,000,000,000, 070 
10365 : 07 6,000, 000, 000,000,000,201 
10371 : 000,07 6, 04 9, 000,000, 000, 000 
10377 : 000,000,068, 082,000,000, 031 
10383 : 000,000,000, 084, 128,000, 099 
10389 : 000,000, 000, 000, 083, 128, 104 
10395 : 000,000, 000, 000, 000,070,225 
104 01 : 069, 000, 000, 000,000,000,230 
104 07 : 065,128,000, 000, 000,000, 104 
10413 : 000, 067,197, 000, 000,000, 181 
10419 : 000,000, 069,210,000,000,202 
10425 : 000, 000, 000,069,212,000,210 
104 31 : 000,000,000,000,069,211,215 
10437 : 000,000,000,000, 000, 080,021 
104 43 : 079, 000,000,000, 000,000,02 6 
10449 : 084,080, 000, 000,000,000, 117 
104 55 : 000, 083, 072, 000,000,000, 114 
104 61 : 000, 000,218, 064,000,000,24 7 


MPERC0MM0D0RE 

CEDOLA DI ORDINAZIONE RIVISTE ARRETRATE CON CASSETTA ALLEGATA 
da compilare e spedire in busta chiusa a 

Gruppo Editoriale Jackson - Via Rosolimi. 12 - 20124 Milano * Tel. 6880951/2/3/4/5 

Vogliate inviarmi i numeri . 

di SUPERCOMMODRE con cassetta .Anno . 

Al prezzo di L. 15.000 cad. 

□ Contanti allegati Q Assegno allegato n° . 


Q Ho spedito l'importo a mezzo vaglia postale 

□ Ho versato l'importo sul ccp. n° 11666203 intestato Gruppo Editoriale Jackson - 
Milano 

□ Pagherò in contrassegno al postino al ricevimento 


BUONO D’ORDINE PER RIVISTE ARRETRATE 
Anche se l’ordine riguardasse la sola cassetta, questa 
verrà comunque inviata insieme alla rivista al prezzo in¬ 
dicato. 

Nome . 

Cognome . 

Via .!. 

Citté . C.A.P . Prov . 

Se richiesta fattura: 

Cod. F. e P. Iva . 

Data ... 

Firma . 

Per i residenti all’estero - pagamento anticipato (vaglia o versamento su ns. ccp) 
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Per collaborare a SUPERCOMMODORE 


Se desiderate inviare alla rivista i vostri programmi o articoli, vi proponiamo una piccola 'gui¬ 
da', con lo scopo particolare di rendere più accurata la stesura dei manoscritti: seguendo 
questi consigli si accresceranno le probabilità che i vostri lavori vengano pubblicati. 


1 l'angolo superiore sinistro della prima 
pagina dovrà contenere: nome, cogno¬ 
me, indirizzo, numero telefonico, codice fisca¬ 
le, luogo e data di nascita. 

l'angolo superiore destro della prima 
pagina dovrà contenere il tipo di com¬ 
puter al quale il lavoro si riferisce (C64 o 
CI 28), unitamente alle eventuali periferiche 
richieste. 

3 il titolo dell'articolo, sottolineato, dovrà 
iniziare a circa due terzi in altezza della 
prima pagina. 

l'articolo dovrà pervenire in Redazione 
sia registrato su supporto magnetico 
(formato SpeedScript o Easy Script per C64, 
oppure in formato ASCII MS-DOS o Macin¬ 
tosh) che stampato su carta. 

5 analogamente i programmi, che accom¬ 
pagnano gli articoli dovranno essere in¬ 
viati su supporto magnetico (floppy disk o 
cassetta); non ha importanza che venga forni¬ 
to un listato su carta degli stessi. 

nel caso i programmi siano in linguag¬ 
gio macchina, dovranno essere specifi¬ 
cati gli indirizzi iniziale e finale, e la procedu¬ 
ra da seguire per il loro caricamento ed attiva¬ 
zione. 

7 programmi in BASIC spezzati in più 
parti dovranno prevedere il carica¬ 
mento in overlay da cassetta e (opzionalmen¬ 
te) da disco. 


8 si tenga presente, che non potranno es¬ 
sere pubblicati listati troppo lunghi o ri¬ 
guardanti argomenti appena trattati sulla ri¬ 
vista. 

9 non verranno presi in considerazione 
articoli o programmi non originali e già 
sottoposti ad altre case editrici. 

il materiale pervenuto non sarà restitui¬ 
to, mentre verrà data comunicazione 
scritta o telefonica all’Autore soltanto nel ca¬ 
so in cui il lavoro sia stato ritenuto meritevole 
di pubblicazione. 

il compenso spettante per la collabora¬ 
zione prestata sarà commisurato alla 
complessità e all’interesse del lavoro (da un 
minimo di L. 50.000 a un massimo di L. 
300.000) e verrà corrisposto un mese dopo 
l'avvenuta pubblicazione sulla rivista. 


Inviate articoli e programmi a: 

SUPERCOMMODORE 

Via Rosellini, 12 
20124 Milano 

e saremo lietissimi di pubblicare i con¬ 
tributi migliori. 

La Redazione 
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Che cos'é la memoria ? 


diT.Heimarck 

trad. ed adatt. di F.Volpi 

Tutti sanno che cosa è la memo¬ 
ria. E' il posto dove vengono im¬ 
magazzinati i programmi una 
volta caricati. Anche la variabi¬ 
li sono in memoria, Infatti con 
troppe variabili si ottiene il mes¬ 
saggio "OUT OF MEMORY". 
E'possibile inserire dei numeri 
in memoria con istruzioni POKE 
ed osservare dei cambiamenti, 
ad esempio nei colori dello 
schermo. Il BASIC è già in me¬ 
moria quando si accende il com¬ 
puter. Alcune zone della memo¬ 
ria contengono puntatori e vet¬ 
tori. In definitiva: che cosa è la 
memoria? 

Dalla frammentaria descrizione di cui 
sopra, si potrebbe pensare che la me¬ 
moria sia una sorta di grande vaso pie¬ 
no di confusione che contenga una va¬ 
rietà di cose interessanti. Ecco un pun¬ 
tatore; ecco lì una variabile, e là nell'an¬ 
golo...ecco il set di caratteri! 

Questa metafora può essere fuorvian- 
te; una descrizione di un programma 
può dire che un certo SPRITE viene me¬ 
morizzato a partire dalla locazione 832, 
ma se fate una PRINT PEEK(832) e fa¬ 
te la stessa operazione nelle 62 locazio¬ 
ni che la seguono, probabilmente trove¬ 
rete degli 0, dei 255, e degli altri numeri. 
Sono solo numeri: dov'è la forma dello 
SPRITE? 

Tutto ciò che tutti hanno sempre trova¬ 
to nella memoria: un'accozzaglia di nu¬ 
meri. Varie porzioni di memoria servono 
a scopi diversi in tempi diversi: le loca¬ 
zioni che ieri contenevano un program¬ 
ma in linguaggio macchina ora ospitano 
i dati di uno SPRITE e domani serviran¬ 
no a contenere uno schermo ad alta ri¬ 
soluzione... 

Proviamo a scavare qua e là nella me¬ 



moria e vediamo se si trova qualcosa di 
interessante. Prima di iniziare, occorre 
dotarsi degli strumenti adatti: quale mi¬ 
glior strumento di indagine nella memo¬ 
ria del computer che un programma in 
linguaggio macchina? 

Caricate ed attivate pertanto Memory 
Display (vedi le note in fondo all'artico¬ 
lo) e partiamo per l’avventura. 

Vedrete il contenuto di 128 byte di me¬ 
moria (locazioni $0800-$087F, 2048- 
2175 in decimale). Le etichette nella co¬ 
lonna a sinistra sono gli indirizzi di me¬ 
moria, seguiti da otto byte in esadeci- 
male e dagli otto caratteri ASCII equiva¬ 
lenti visualizzati in campo inverso. 

I cinque comandi disponibili sono listati 
nella parte alta dello schermo: i tasti + e - 

permettono di muoversi verso l’alto o 
verso il basso nella memoria con "pas¬ 
si" di 128 byte. Il tasto 0 rivisualizza la 
stessa sezione di memoria, mentre il ta¬ 
sto "lira" permette di saltare ad un qual¬ 
siasi indirizzo esadecimale. 

II tasto Q serve per uscire dai pro¬ 
gramma. 

Premete il tasto "lira" ed inserite il valo¬ 
re C000. I numeri A9, 00, 85, FB e così 
via fanno parte della routine in linguag¬ 
gio macchina di Memory Display che 
state utilizzando. Se li comparate con il 
suo listato e convertite in esadecimale i 
numeri di quest'ultimo, vedrete che 
coincidono. 

Premete il tasto + un paio di volte. A 


$C15A 

byte: 


vedrete la seguente serie di 


9312 30 92 3D41 4741 49 4E20 

Questi numeri fanno parte del program¬ 
ma, ma non sono linguaggio macchina. 
Il numero $93, equivalente al 
CHR$(147), è il codice carattere per la 
pulizia dello schermo. Il numero $12 è il 
codice per l’attivazione del reverse, 
$30 è il codice carattere di 0, e $92 è il 
reverse off. Il resto della linea contiene 
i caratteri AGAIN. Se confrontate i ca¬ 
ratteri nella parte destra dello schermo 
con il messaggio nella parte alta, trove¬ 
rete il collegamento. 

Lo schermo è posizionato in 1024 
($0400); premete ancora il tasto Tira" 
ed inserite 0400. Questa volta, la scrit¬ 
ta AGAIN viene mostrata come 01 07 
01 09 0E: codici di schermo invece di 
codici carattere. Se usate i tasti + e - 
per muovervi avanti e indietro, lo scher¬ 
mo visualizzerà tutti i codici dei caratte¬ 
ri visualizzati. 

Se fate un "viaggetto" aN'interno della 
memoria, troverete molti altri messaggi. 
A $A09E, ad esempio, vedrete una se¬ 
rie di caratteri che formano la scritta 
"enDfoRnexTdatA", e molti altri. Questa 
è la tavola delle parole chiave del BA¬ 
SIC: quando inserite un comando, il 
C64 deve cercarne la corrispondenza 
all'interno di queste liste. Notate che 
l'ultimo carattere di ciascuna istruzione 
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è shiftato (premere SHIFT e Commodo¬ 
re per passare in modo minuscolo/maiu¬ 
scolo). Usare un carattere shiftato alla 
fine di ciascuna istruzione è uno dei mo¬ 
di per indicare che quel carattere è l'ulti¬ 
mo di quella istruzione, e per separare 
tra loro le istruzioni. 

Spostatevi a $A19E e vedrete un'altra li¬ 
sta: "too many fileSfile opeNfile not 
opeN". Sono i messaggi di errore, an- 
ch'essi con dei caratteri shiftati come 
delimitatori. Un'altra area che contiene 
dei caratteri è la $E460. 

Ora un nuovo esperimento da provare: 
premete "lira" e inserite 00A0.1 primi tre 
byte sono il "jiffy clock", che viene con¬ 
tinuamente aggiornato. Premete il tasto 
0 un po' di volte ed il terzo byte cambie¬ 
rà, mentre ogni circa quattro secondi 
cambia il secondo byte. Non cancellate 
il programma Memory Display: prossi¬ 
mamente daremo un'occhiata a come 
appare in memoria un programma 
BASIC. 

Note per il caricamento, la digi¬ 
tazione ed il trasferimento su di¬ 
sco del programma 


Il programma si carica da cassetta po¬ 
sizionandosi con il nastro in corrispon¬ 
denza del suo inizio e digitando: 

LO AD”, 1,1 (RETURN) 
Memory Display 


Attenzione! Non inserire spazi tra gli 
apici. 

Al termine del caricamento, digitare: 

NEW (RETURN) 

SYS 49152 (RETURN) 


per attivarlo. 

Gli abbonati che non dispongono della 
cassetta allegata alla rivista dovranno 
utilizzare MLX (vedi in altra parte della 
rivista) per digitare il programma. Occor¬ 
rerà rispondere alle domande di MLX 
con: 

indirizzo iniziale: 49152 
indirizzo finale: 49567 

Dopo aver digitato e salvato il program¬ 
ma, sarà sufficiente seguire per il suo 
caricamento e attivazione le istruzioni 
date più sopra. 

Volendo invece trasferire da cassetta 
su disco il programma, occorre seguire 
questa procedura: 

Caricare ed attivare MLX e rispondere 
alle sue domande con gli indirizzi di cui 
sopra. 

Dopo aver digitato questi indirizzi, sullo 
schermo comparirà il valore relativo al¬ 
l'indirizzo iniziale seguito dal cursore di 
MLX; premete SHIFT e L per caricare il 
programma: vi verrà chiesto se volete 
caricare da nastro o disco (scegliete na¬ 


stro) ed il nome del file (digitate il nome 
con cui il programma è registrato sulla 
cassetta). 

Al termine del caricamento ricomparirà 
sullo schermo il valore relativo all'indiriz¬ 
zo iniziale seguito dal cursore di MLX; 
premete SHIFT e S per salvare il pro¬ 
gramma: vi verrà chiesto se volete sal¬ 
vare su nastro o disco (scegliete disco) 
ed il nome del file (digitate il nome con 
cui avete caricato il programma dalla 
cassetta). 

Ricordiamo che, per conoscere il punto 
esatto di inizio dei vari programmi su 
cassetta ed il nome con il quale essi so¬ 
no stati registrati, è sufficiente inserire 
quest'ultima completamente riavvolta 
nel registratore, azzerare il contana- 
stro e digitare: 

LOAD"*’ (RETURN) 

Dal momento che sicuramente non esi¬ 
ste sulla cassetta alcun programma di 
nome il computer passerà in rasse¬ 
gna tutti i programmi incontrati visualiz¬ 
zandone il nome con il messaggio: 

FOUND XXXX 

Sarà quindi utile annotarsi su un foglio i 
nomi dei programmi e la relativa posizio¬ 
ne del contanastro (sottrarre tre o quat¬ 
tro unità dal valore corrispondente al¬ 
l’apparizione del messaggio FOUND...). 


4 9152 :169, 000,133,251, 169, 008,218 
4 9158 :133,252,032, 020, 193, 032, 156 
4 9164 : 034,193, 032, 202, 192, 169,066 
4 9170 : 016, 141, 155, 193, 032,211,254 
4 9176 :192, 032,24 0,192,169,008,08 9 
4 9182 : 024,101, 253,133,253, 144,170 
4 9188 : 002,230,254,20 6, 155, 193,052 
4 9194 : 208,234,032,228,255,24 0,215 
4 9200 : 251, 160,004,217, 140, 193,245 
4 9206 : 240,005, 136, 016,248,048,235 
4 9212 : 239, 152, 010, 168,185, 14 5, 191 
4 9218 :193, 141, 07 8,192,200, 185, 031 
4 9224 :14 5, 193, 141, 07 9, 192, 07 6,130 
4 9230 : 255,255, 165,251,02 4,105, 109 
4 9236 :128, 133,251, 14 4,002,230,204 
4 9242 : 252,07 6, 008,192,165,251,010 
4 9248 : 056, 233, 128,133,251,17 6, 04 9 
4 9254 : 002, 198,252, 07 6,008, 192, 062 
4 92 60 :169, 058,032, 210,255,032,096 
4 92 66 : 068,193, 169,000, 141,155,072 
4 9272 :193,032,228,255,240,251,039 
4 9278 : 201, 020,24 0, 057, 162, 015, 053 
4 9284 : 221, 07 4,193, 24 0, 005, 202,04 3 
4 9290 : 016, 24 8, 04 8,235, 032,210, 159 
4 9296 : 255, 172, 155, 193, 138,153, 18 6 
4 9302 :156, 193, 200,14 0, 155, 193, 163 
4 9308 :192, 004,208,217, 173, 156, 082 
4 9314 :193, 010, 010, 010,010,013, 152 
4 9320 :157, 193, 133,252,173, 158,210 
4 9326 :193, 010,010, 010,010,013, 164 
4 9332 :159, 193, 133,251,07 6,008,232 
4 9338 :192, 17 4,155, 193,24 0, 185,04 5 
4 934 4 : 20 6, 155, 193,032,210,255,219 
4 9350 : 076, 121,192,096, 165,251, 075 
4 9356 :133,253, 165,252, 133,254,114 


4 9362 : 096, 165, 254,032,04 7,193,229 
4 9368 :165,253,032,04 7,193, 032, 170 
4 937 4 : 068, 193, 160, 000, 177,253,04 9 
4 9380 : 032,04 7, 193, 032, 068, 193,025 
4 9386 : 200, 192,008,208,24 3, 096, 157 
4 9392 : 032,068, 193, 169,018,032,240 
4 9398 : 210,255, 160, 000, 177,253,021 
4 9404 :170,041, 127,201,032,176, 231 
4 9410 : 002, 162, 164,138,032,210,198 
49416 :255,200,192,008,208,236,083 
4 9422 :169,013, 032,210,255, 096, 021 
4 9428 :160,000, 185,090, 193,24 0, 120 
4 94 34 : 006, 032,210,255, 200,208, 169 
4 94 40 : 24 5, 096, 166,251, 165,252, 183 
4 9446 : 032,205, 189, 169, 013, 032, 166 
4 94 52 : 210,255,096,072, 041,24 0,190 
4 94 58 : 07 4,074,07 4,07 4,032,060, 182 
4 94 64 :193, 104,041, 015, 170,189, 000 
4 94 70 : 074,193, 032, 210,255,096, 154 
4 9476 :169,032, 032,210,255,096,094 
4 94 82 : 04 8,04 9, 050,051,052,053, 121 
4 94 88 : 054,055,056, 057,065,066, 177 
4 94 94 : 067, 068, 069,070,14 7,018,013 
4 9500 : 048, 146, 061,065,071, 065,036 
4 9506 : 073,07 8,032,018, 04 3, 14 6,232 
4 9512 : 061,07 0,087,068, 032,018, 184 
4 9518 : 045, 146, 061,066, 065, 067,04 8 
4 9524 : 07 5, 032,018,092, 146, 061,028 
4 9530 : 083,069,07 6, 069, 067, 084, 058 
4 9536 : 032,018,081, 14 6, 061, 081, 035 
4 9542 : 085,073, 084,013, 013, 000,14 6 
4 9548 : 04 8,04 3, 04 5,092,081,008,201 
4 9554 :192, 080, 192,094,192,108,236 
4 9560 :192,201, 192,000,255,255,223 
4 9566 : 255,255, 000,000, 000, 000, 156 
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di A.Bertram 

trad. ed adatt. di S.Colombo 


Ecco un eccezionale videoga¬ 
me, completamente in lin¬ 
guaggio macchina e dotato di 
una grafica eccezionale. E* ri¬ 
chiesto l'utilizzo di due jo¬ 
ystick. 

Box è un gioco per due avversari 
che richiede abilità, strategia e coor¬ 
dinamento: il match ha la durata di 
tre round, a meno che intervenga 
un knockout da parte di uno dei 
due giocatori. 

Il gioco è semplice, dal momento 
che esistono soltanto poche mos¬ 
se da imparare, ma nello scontro tra 
giocatori esperti non sarà facile giun¬ 
gere alla vittoria: muovete il joystick 
diagonalmente verso l'alto e verso 
l'altro giocatore per un diretto, oppu¬ 
re diagonalmente verso il basso e 
verso il vostro avversario per un gan¬ 
cio. Per bloccare i colpi dell’avversa¬ 
rio, muovete il joystick verso l'alto o 
verso il basso. La pressione del pul¬ 
sante di fuoco esegue il vostro co¬ 
mando. Per muovervi verso destra 
o verso sinistra spostate semplice- 
mente la leva del joystick in quella di¬ 
rezione. 

Ogni round dura tre minuti: l'orolo¬ 
gio nella parte alta dello schermo 
mostra il tempo trascorso. Quando 
la campana suona al termine di ogni 
round, i due avversari ritornano au¬ 
tomaticamente ai loro angoli, men¬ 
tre durante i break l'energia dei due 
pugili aumenta leggermente. 


Visualizzato sopra ciascun avversa¬ 
rio vi è un indicatore dell'energia di¬ 
sponibile che è molto importante te¬ 
nere bene sott'occhio: se la vostra 
energia infatti scende sotto il 25 per 
cento, avrete un knock-down al 
prossimo pugno. Se l'energia scen¬ 
de invece sotto il 15 per cento, il 
prossimo pugno ricevuto provoche¬ 
rà inevitabilmente un knock-out. 
L'energia viene perduta in due mo¬ 
di: sia sferrando pugni che incassan¬ 
do questi ultimi; sferrare un diretto 
costa un punto di energia, mentre 


incassarne uno ne costa due. Sfer¬ 
rare un gancio costa due punti di 
energia, mentre incassarne uno ne 
costa quattro. 

L'energia viene costantemente rin¬ 
novata: se la vostra è bassa, è buo¬ 
na tattica cercare di sfuggire ai colpi 
dell'avversario bloccandoli con i pro¬ 
pri guantoni oppure muovendosi 
sul ring. 

Se il match dura per tutti e tre i 
round, il vincitore è il contendente 
che ha realizzato il punteggio più al¬ 
to: si guadagnano cinque punti per 
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ogni diretto ben piazzato, e dieci 
per un gancio. In caso di parità, il 
match va al campione difendente il 
titolo (a sinistra con i pantaloncini 
viola). 

Nell'eventualità di un knock-down, 
un apposito contatore provvede a 
contare i dieci secondi: se il giocato¬ 
re non è in grado di rialzarsi in tem¬ 
po, il match è concluso. 

Note per il caricamento, la di¬ 
gitazione ed il trasferimento 
su disco del programma 

Se si dispone della cassetta allega¬ 
ta alla rivista, è sufficiente posizio¬ 
narsi con il nastro in corrispondenza 
dell'inizio del programma e digitare: 

LOAD (RETURN) 

Il programma andrà quindi mandato 
in esecuzione digitando: 

RUN (RETURN) 

Ricordiamo che per conoscere il 

Box! 


punto esatto di inizio dei vari pro¬ 
grammi su cassetta è sufficiente in¬ 
serire quest'ultima completamente 
riavvolta nel registratore, azzerare il 
contanastro e digitare: 

LOAD"*" (RETURN) 

Dal momento che sicuramente non 
esiste sulla cassetta alcun program¬ 
ma di nome '*', il computer passerà 
in rassegna tutti i programmi incon¬ 
trati visualizzandone il nome con il 
messaggio: 

FOUNDXXXX 

Sarà quindi utile annotarsi su un fo¬ 
glio i nomi dei programmi e la relati¬ 
va posizione del contanastro (sot¬ 
trarre tre o quattro unità dal valore 
corrispondente all'apparizione del 
messaggio FOUND...). 

Gli abbonati alla sola rivista dovran¬ 
no invece usare il programma MLX 
(vedere in altra parte della rivista) 
per digitare il listato in linguaggio 
macchina. La procedura da seguire, 


in questo caso, è: 

1. Accendere il computer e digi¬ 
tare: 

POKE44,32:POKE32*256,0:NEW 

(RETURN) 

2. Caricare in memoria MLX (che sa¬ 
rà stato precedentemente digitato 
e salvato), e rispondere alle sue ri¬ 
chieste circa gli indirizzi iniziale e fi¬ 
nale con: 

indirizzo iniziale: 2049 
indirizzo finale: 6832 

Dopo avere digitato e salvato il pro¬ 
gramma tramite MLX, si potranno 
seguire per il caricamento le istruzio¬ 
ni date più sopra per i possessori di 
cassetta. 

Ricordiamo che il programma in lin¬ 
guaggio macchina, poiché risiede 
nella normale area BASIC, può es¬ 
sere trasferito da cassetta a disco di¬ 
rettamente con un comando SAVE 
"nomefile",8. 


204 9 : 012,008,010,000,158,032,221 
2055 : 050,052,056,053,000,000,218 
2061 : 000,173,232,003,208,003,120 
2067 :108,130,003,206,071,003,028 
2073 :206,073,003,206,072,003,076 
207 9 :173,078,003,208,011,032,024 
2085 :012,009,169,001,141,078,191 
2091 : 003,07 6,055,008,032,097,058 
2097 : 009,169,000,141,078,003,193 
2103 :173,072,003,208,008,032,039 
2109 : 098,008,169,015,141,072,052 
2115 :003,173,071,003,208,008,021 
2121 : 032,155,008,169,019, 141,085 
2127 : 071,003,173,073,003,208,098 
2133 : 008,032,247,008,169,109,146 
2139 :141,073,003,108,130,003,037 
214 5 : 096,173,077,003,208,026,168 
2151 :173,079,003,208,005,169,228 
2157 :194,141,250,007,173,080,186 
2163 : 003,208,005,169,207,141,080 
2169 :255,007,169,001,141,077,003 
2175 : 003,096,173,080,003,208,178 
2181 : 005, 169,206, 141,255,007,148 
2187 :173,079,003,208,005,169,008 
2193 :195, 141,250,007,169,000,139 
2199 :141,077,003,096,238,074,012 
2205 : 003,173,074,003,201,010,109 
2211 :144,049,169,000,141,074,228 
2217 :003, 169,000,141,074,003,047 
2223 : 238,075,003, 173,075,003,230 
2229 : 201,006,14 4,029,169,000,218 
2235 :141,075,003,238,076,003,211 
2241 :173,07 6,003,201,003,14 4,025 
224 7 : 014,169,000,141,074,003,088 
2253 :141,075,003,141,076,003,132 
2259 :141,232,003,173,076,003,071 
2265 : 024,105,04 8,141,054,004,081 
2271 :169,058,141,055,004,173,0 55 
2277 :075,003,024,105,048,141,113 
2283 :056,004,173,074,003,024,057 


2289 :105,048,141,057,004,096,180 
2295 :173,0 64,003,201,197,176,037 
2301 : 003,238,064,003,173,065,031 
2307 : 003,201,197,176,003,238,053 
2313 :065,003,096,173,079,003,172 
2319 :24 0,003,076,160,009,173,164 
232 5 : 080,003,240,001,096,173,102 
2331 : 001,220,041,015,201,015,008 
2337 : 2 08,001,096,056,201,008,0 91 
2 34 3 :144,022,173,000,208,024,098 
234 9 :201,04 5,17 6,001,0 96,206,002 
2355 : 000,208,206,002,208,206,113 
2361 : 004,208,206,006,208,096,017 
2367 :173,008,208,056,237,000,233 
2373 : 208,201,018,176,001,0 96,001 
237 9 :173,000,208,056,201,220,165 
2385 :144,001,096,2 38,000,208,000 
2391 :238,002,208,238,004,208,217 
2397 :238,006,208,096,173,080,126 
2403 :003,240,003,076,041,009,215 
2409 :173,079,003,240,001,096, 185 
2415 :173,000,220,041,015,201,249 
2421 : 015,208,001,096,056,2 01,182 
2427 : 008,14 4,034,173,014,208,192 
2433 : 024,201,040,17 6,001,096, 155 
2439 :173,008,208,056,237,000,04 9 
2445 :208,201,018,176,001,096,073 
2451 :206,008,208,206,010,208,225 
2457 :206,012,208,206,014,208,239 
2463 :096,173,014,208,201,235,062 
24 69 :144,001,096,238,008,208,092 
247 5 : 238,010,208,238,012,2 08,0 61 
2481 : 238,014,208,0 96,120,173,002 
2487 : 020,003,141,130,003, 173, 141 
24 93 : 021,003, 141,131,003, 169,14 5 
2499 : 014,141,020,003, 169,008,038 
2505 :141,021,003,169,000,141,164 
2 511 : 074,003,141,075,003,141,132 
2517 : 076,003,141,079,003,141,144 
2523 : 080,003,141,228,003,141,047 
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2529 : 229,003, 169,001, 141,071,071 
2535 : 003, 141,081,003,169, 004,120 
2541 :141, 072, 003, 088,032, 14 6,207 
2547 : 020, 169, 183,141, 021,208,217 
2553 :169, 255, 141,028,208,169, 195 
2559 : 010, 141, 037,208, 169, 009, 061 
2565 :141,038,208, 169, 013, 141,203 
2571 : 043,208, 141, 04 4,208,141, 028 
2577 : 04 5,208,141, 04 6, 208,169,066 
2583 : 004,141,039,208, 141, 04 0,084 
2589 : 208,141,041,208,141, 04 2,04 2 
2595 : 208,169,Oli,141,017,208,021 
2601 :169, 000, 141, 033,208, 169,24 9 
2 607 :14 2,032, 210,255, 032, 14 9,099 
2613 : 015,032, 135,014,032,08 6, 111 
2619 : 014,032, 167,013,169, 198, 14 0 
2625 :141,064,003, 141,065,003,226 
2631 :169, 027, 141,017,208, 169, 034 
2637 : 224,141, 002,220, 169, 000, 065 
2643 :141,060, 003, 141, 061, 003,236 
2649 :141, 062,003, 141,063, 003,24 6 
2655 :169, 001, 141, 066, 003, 141, 104 
2661 : 232, 003, 17 3, 030,208, 173, 152 
2667 : 030,208,17 3,232, 003,208,193 
2673 : 04 5, 173, 066,003,201,003, 092 
2679 : 208, 006, 032,086, 014,07 6, 029 
2685 : 219, 014,032,086, 014,032, 010 
2691 :167, 013-, 032,069, 013,032,201 
2697 :157, 014,238,066, 003, 032, 135 
27 03 : 209, 014,032, 130, 013, 032, 061 
27 09 : 069, 013, 032,086, 014,169, 020 
2715 :001, 141,232, 003, 173, 001, 194 
2721 : 220, 041, 016,208, 065, 165, 108 
2727 : 251, 208,061, 173, 001,220, 057 
2733 :041,015,201,006,208,013,145 
2739 :169,196,141,248,007,169,085 
27 45 :197,141, 24 9, 007, 07 6,224,055 
27 51 : 010, 201, 005,208, 013, 169, 029 
2757 '198,141,248,007,169,199,135 
27 63 :141,249, 007, 07 6,224,010,142 
2769 :169,200,141,248,007,169,119 
2775 : 201,141,249, 007,169, 003,217 
2781 :141,087, 003, 169, 001, 133,24 3 
27 87 : 251,07 6,24 2,010, 17 3,001,212 
27 93 : 220,041,016,240, 004,169,155 
27 99 : 000,133,251,173,000,220,24 8 
2805 : 041,016,208,065,165,252,224 
2811 : 208,061, 173, 000,220,041,18 6 
2817 : 015, 201, 010,208,013, 169, 105 
2823 :208, 141, 252,007,169,209,225 
2829 :141,253, 007,076,051,Oli,04 0 
2835 : 201, 009, 208,013, 169,210,061 
2841 :141, 252,007,169,211, 141, 178 
2847 : 253,007,07 6, 051,Oli, 169, 08 6 
2853 : 212, 141,252, 007, 169,213, 007 
2859 :141,253,007, 169, 003, 141,24 5 
2865 :088,003,169,001,133,252,183 
2871 : 076, 070,Oli, 173,000,220,093 
2877 : 041,016,24 0,004,169, 000,019 
2883 :133,252, 234,17 3,24 8, 007, 090 
2889 : 201, 192, 208,023, 201,200, 074 
2895 : 208, 019, 173,252, 007,201, 171 
2901 : 204,208,012,201,212, 208, 106 
2907 : 008, 162, 095, 032, 14 8, 014,038 
2913 : 07 6, 106, 010, 173,24 8, 007,205 
2919 :17 0, 173,252,007, 168,224,073 
2925 :196, 208,00 6,206, 064,003, 024 
2931 : 20 6,064,003,224, 198,208,250 
2937 : 009, 173, 064,003, 056,233, 14 7 
294 3 :005, 141,064,003, 192,208,228 
294 9 : 208,00 6,20 6,065, 003,206, 059 
2955 : 065, 003, 192,210,208, 009, 058 
2961 :173, 065, 003,056,233, 005, 168 
2967 :141, 065,003, 162, 080, 032, 122 
2973 :148, 014,173,030,208,201, 163 
2979 :183,240, 017,032, 184,014,065 
2985 : 032,130,013, 162,095,032, 121 
2991 :14 8,014,032, 002, 014,07 6,205 
2997 :106, 010, 173,24 8, 007, 170, 127 


3003 :173,252,007,168,192,204,159 
3009 :208,060,224,196,208,026,091 
3015 :173,065,003,056,233,005,222 
3021 :141,065,003,173,0 60,003,138 
3027 :024,105,005, 141,0 60,003,037 
3033 :173,0 61,003,105,000,141,188 
3039 : 061,003,224,198,208,026,175 
304 5 :173,0 65,003,056,233,010,001 
3051 :141,0 65,003,173,0 60,003,1-68 
3057 : 024,105,010,141,0 60,003,072 
3063 :173,061,003,105,000,141,218 
3069 : 061,003,224,192,208,060,233 
307 5 :192,208,208,026, 173,064,106 
3081 : 003,056,233,005, 141,064,255 
3087 :003,173,062,003,024,105,129 
3093 : 005,141,062,003, 173,063,212 
3099 : 003,105,000,141,063,003,086 
3105 :192,210,208,026,173,064,138 
3111 : 003,056,233,010,141,0 64,034 
3117 :003,173,062,003,024,105,159 
3123 :010,141,062,003, 173,0 63,247 
312 9 : 003, 105,000,141,063,003,116 
3135 :032,047,014,032,184,014,130 
3141 : 032,130,013,032,095,013,128 
3147 :173,248,007,201,192,208,080 
3153 : 021,173,252,007,201,204,171 
3159 :240,014,201,212,240,010,236 
3165 :173,064,003,201,050,176,248 
3171 :003,032,142,012,173,252,201 
3177 : 007,201,204,208,021,173,151 
3183 :248,007,201,192,24 0,014,245 
3189 :201,200,240,010,173,065,238 
3195 :003,201,050,176,003,032,076 
3201 :194,012,162,001,032,148,166 
3207 : 014,032,002,014,076,106,123 
3213 : 010,169,001,141,079,003,032 
3219 :173,250,007,072,169,188,238 
3225 :141,021,208,169,202,141,Oli 
3231 : 250,007,169,203,141,251,156 
3237 : 007,032,002,014,173,064,201 
324 3 : 003,074,141,231,003,169,024 
324 9 : 025,056,237,231,003,201,162 
3255 :010,14 4,060,169,001,141,196 
3261 :228,003,076,219,014,169,130 
3267 :001,141,080,003,173,255,080 
3273 : 007,072,169,199,141,021,042 
3279 :208,169,214,141,254,007,176 
3285 :169,215,141,255,007,032,008 
3291 : 002,014,173,0 65,003,074,038 
3297 :141,231,003, 169,025,056,082 
3303 : 237,231,003,201,010,144,033 
3309 : 008,169,001,141,229,003,020 
3315 :076,219,014,170,173,147,018 
3321 :007,024,105,001,073,128,075 
3327 :141,147,007,138,072,162,154 
3333 : 255,032,14 8,014,162,255, 103 
3339 : 032,14 8,014,104,170,202,169 
334 5 : 208,228,169,04 8,141, 14 7,190 
3351 : 007,173,228,003,240,001,163 
3357 : 0 96,173,229,003,240,001,003 
3363 : 096,120,169,183,141,021,253 
3369 : 208,032,002,014,104,201,090 
3375 :200,176,006,141,250,007,059 
3381 : 076,059,013,141,255,007,0 92 
3387 :169,000,141,07 9,003,141,080 
3393 : 080,003,088,096,162,255,237 
3399 : 032,14 8,014,162,255,032,202 
34 0 5 :148,014,162,255, 032,148,068 
3411 : 014,162,255,032,14 8,014,196 
3417 :162,2 55,032,148,014,096,028 
3423 :162,008,160,034,024,032,003 
3429 : 240,255,173,061,003,174,239 
34 35 : 060,003,032,205,189,162,24 6 
34 41 : 013,160,034,024,032,240,104 
34 4 7 : 255, 173,063,003,174,0 62,081 
34 53 : 003,032,205,189,0 96,162,044 
34 59 : 004,160,004,02 4,032,240,083 
34 65 : 255, 173,064,003,074,170,108 
3471 :169,000,032,205,189,162,132 
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3477 : 004,160,025,024,032,240,122 
3483 : 2 55,173,065,003,074,170,127 
34 89 :169,000,032,205,189,096,084 
3495 :169,192,141,248,007,169,069 
3501 :193,141,249,007,169,194,102 
3507 :141,250,007,169,204,141,067 
3513 :252,007,169,205,141,253,188 
3519 :007,169,206,141,255,007,208 
3525 :169,170,141,005,208,141,007 
3531 : 007,208,141,013,208,141,153 
3537 : 015,208,169,150,141,001,125 
354 3 : 208,141,003,208,141,Oli,159 
354 9 :208,141,009,208,169,04 6,234 
3555 :141,000,208,141,004,208,161 
3561 :169,070,141,002,208,141,196 
3567 : 006,208,169,234,141,010,239 
3573 : 208,141,014,208,169,210,171 
357 9 :141,008,208,141,012,208,201 
3585 : 096,173,248,007,201,200,158 
3591 : 208,005,206,087,003,208,212 
3597 :010,169,192,141,248,007,012 
3603 :169,193,141,249,007,173,183 
3609 :252,007,201,212,208,005,142 
3615 : 206,088,003,208,010,169,203 
3621 : 204,141,252,007,169,205,247 
3627 :141,253,007,0 96,169,015,212 
3633 :141,008,212,141,024,212,019 
3639 :169,Oli,141,012,212,169,001 
364 5 : 007,141,013,212,169,220,055 
3651 :141,007,212,169, 129,141,0 98 
3657 : Oli,212,162,010,032,14 8,136 
3663 : 014,169,128,141,011,212,242 
3669 : 096, 141,000,212,169,030,221 
367 5 :141,001,212,169,015, 141,002 
3681 : 005,212,169,009,141,006,127 
3687 : 212,169,120, 141,014,212,203 
3693 :169,0 65, 141,015,212,169, 112 
3699 : 207,141,024,212,169,021,121 
3705 :141,004,212,162,100,032,004 
3711 :148,014,169,020,141,004,111 
3717 :212,096,162,000,169,000,004 
3723 :157,000,212,232,224,024,220 
3729 : 208,24 8,096, 160,000,136,225 
3735 : 208,253,202,208,248,096,086 
3741 :173,0 64,003,201,188,176,194 
3747 :006,024,105,010,141,064,001 
3753 : 003,173,0 65,003,201,188,034 
3759 :176,006,024,105,010,141,125 
3765 : 0 65,003,096, 173,064,003,073 
3771 : 201,021,17 6,005,169,021,012 

377 7 :141,064,003,173,065,003, 130 
3783 :201,021,176,005,169,021,024 

378 9 :141,065,003,096,173,0 66,237 
37 95 : 003,024,105,048,141,243,007 
3801 : 006,096,173,228,003,240,195 
3807 : 066,162,009,032,247,012,239 
3813 :169,04 9,141,146,007,162,135 
3819 : 255,032,14 8,014,169,000,085 
3825 :141,232,003,133,251,032,009 
3831 : 086,014,169,212,141,252,097 
3837 :007,169,213,141,253,007,019 
384 3 :162,255,032,14 8,014,169,015 
384 9 :204,141,252,007,169,205,219 
3855 :141,253,007,162,255,032,097 
3861 :148,014,230,251,165,251,056 
3867 :201,005,208,215,076,129,093 
387 3 :015, 173,229,003,240,066,24 7 
387 9 :162,009,032,247,012,169, 158 
3885 : 04 9,141,146,007,162,255,037 
3891 : 032,14 8,014,169,000,141,043 
3897 :232,003,133,251,032,086,026 
3903 : 014,169,200, 141,248,007,074 
3909 :169,201,141,2 4 9,007,162,230 
3915 : 255,032,148,014,169,192,117 
3921 :141,248,007,169,193,141,212 
3927 : 249,007,162,255,032,148,172 
3933 : 014,230,251,165,251,201,181 
3939 : 005,208,215,076,129,015,235 


394 5 : 056,173,060,003,237,062,184 
3951 : 003,133,000,173,061,003,228 
3957 :237,063,003,005,000,17 6,089 
3963 :186,240,003,076,239,014,113 
3969 :162,255,032,069,013,169,061 
397 5 : 000,133,198,165, 198,24 0,04 5 
3981 :252,032,138,255,076,181,051 
3987 : 009,234,169,175,133,251,094 
3993 :169,015,133,252,160,000,114 
3999 :177,251,240,Oli,032,210,056 
4 005 : 255,200,208,24 6,230,252,020 
4 011 : 07 6,157,015,096,147,032,182 
4017 : 018,005,032,032,032,032,072 
4 023 : 032,032,032,032,032,032,119 
4 029 : 032,032,032,032,032,032,125 
4 035 : 032,032,032,032,032,032,131 
4 041 : 032,032,032,032,032,032,137 
4 04 7 : 032,032,032,032,032,032,143 
4 053 : 032,032,032,032,14 6,032,007 
4059 :018,032,146,032,032,032,255 
4 065 : 032,032,032,032,032,032,161 
4 071 : 018,151,032,032,032,032,016 
4 07 7 :158,032,032,032,032,151,162 
4 083 : 032,032,032,032,14 6,032,037 
4 089 : 032,032,032,032,032,032,185 
4 095 -.032,032,018,005,032,14 6,008 
4101 : 032,032,032,032,032,032,197 
4107 : 032,018,032,032,146,032,04 7 
4113 =032,018,156,080,085,082,214 
4119 =080,076,005,146,032,032,138 
4125 =018,151,032,032,032,032,070 
4131 =032,032,032,032,032,032,227 
4137 =032,032,146,032,032,018,077 
4143 =153,071,082,069,069,078,057 
4149 =146,005,032,032,018,005,035 
4155 =032,146,032,032,032,032,109 
4161 =032,032,032,018,032,032,243 
4167 =146,032,032,018,156,069,012 
4173 =078,069,082,071,146,005,016 
4179 =032,032,223,018,032,032,196 
4185 =032,032,032,032,032,032,025 
4191 =032,032,146,169,032,032,026 
4197 =018,153,069,078,069,082,058 
4203 =071,146,005,032,032,018,155 
4209 =005,032,146,032,032,032,136 
4215 =032,032,032,032,018,032,041 
4221 =032,146,032,032,032,057,200 
4227 =057,037,032,032,032,032,097 
4233 =032,032,032,032,032,032,073 
4239 =032,032,032,032,032,032,079 
4245 =032,032,057,057,037,032,140 
4251 =032,160,018,005,032,146,036 
4257 =032,032,032,032,032,032,097 
4263 =032,018,032,032,146,032,203 
4269 =032,032,032,032,032,032,109 
4275 =032,032,032,032,032,032,115 
4281 =032,032,032,032,032,032,121 
4287 =032,032,032,032,032,032,127 
4293 =032,032,032,032,032,018,119 
4299 =005,032,146,032,018,156,080 
4305 =080,085,082,080,076,005,105 
4311 =146,032,018,032,032,146,109 
4317 =032,032,032,032,032,032,157 
4323 =032,032,032,032,032,032,163 
4329 =032,032,032,032,032,032,169 
4335 =032,032,032,032,032,032,175 
4341 =032,032,032,032,032,032,181 
4347 =018,032,146,032,018,156,141 
4353 =083,067,079,082,069,005,130 
4359 =146,032,018,032,032,146,157 
4365 =032,032,032,032,032,032,205 
4371 =032,032,032,032,032,032,211 
4377 =032,032,032,032,032,032,217 
4383 =032,032,032,032,032,032,223 
4389 =032,032,032,032,032,032,229 
4395 =018,032,146,032,032,032,079 
4401 =032,032,032,032,018,032,227 
4407 =032,146,032,150,209,032,144 
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4413 : 209, 032,20 9, 032,209, 032,016 
4 419 : 209, 032,209, 032, 20 9, 032,022 
4 4 25 : 209, 032,20 9, 032,209, 032,028 
4 4 31 : 209, 032,209, 032,209,032, 034 
4 4 37 :209, 032, 209, 018,005,032, 078 
44 43 :14 6, 032, 032, 04 8,032,032, 157 
44 4 9 : 032,032, 018,032,032, 14 6, 133 
44 55 :150,209, 032,209,032,209, 17 6 
44 61 : 032,209, 032,209,032, 209, 064 
44 67 : 032,209, 032,209,032,209, 070 
4 473 : 032,209, 032,20 9, 032,209, 07 6 
44 7 9 : 032,209, 032,209, 032,209, 082 
44 85 : 032,018,005, 032, 14 6, 032,142 
4 4 91 : 032, 032,032, 032,032,032,07 5 
44 97 : 018, 032,032, 14 6, 032,150,04 3 
4 503 : 209,032,209, 032,209, 032, 106 
4 509 : 209, 032,209, 032,20 9,032, 112 
4 515 : 209, 032,209, 032,20 9,032, 118 
4521 : 209,032,209,032,209,032, 124 
4 527 : 20 9,032,209,032,209,018, 116 
4 533 : 005,032,14 6, 032,018, 153, 055 
4 539 : 071, 082,069, 069, 07 8, 005, 04 9 
4 54 5 :14 6, 032, 018,00 5, 032, 032,202 
4 551 :14 6, 150,209, 032, 018, 14 9, 135 
4 557 :169, 032,14 6, 169, 158,183,038 
4 563 :183, 183, 183, 183, 183, 183,02 9 
4569 :183, 183, 183, 183, 183, 183,035 
4 575 :183, 183, 183, 183, 183,183,041 
4 581 :183, 14 9,223, 018,032,223,033 
4 587 :146, 150,209, 032,018,005,027 
4 593 : 032,14 6, 032,018,153,083, 193 
4 599 : 067,079, 082,069,146,032,210 
4 605 : 018,005, 032, 032, 14 6,032, 00 6 
4 611 :158,206, 150,209,018, 14 9, 125 
4 617 : 032, 14 6, 150,032,20 9, 032,098 
4 623 : 209, 032,209, 032,209, 032,226 
4 629 : 209, 032,209,032,209, 032,232 
4 635 : 209, 032,209, 032,209, 032,238 
4 641 : 209, 14 9, 018,032, 14 6, 150,225 
4 647 : 209, 158, 205, 150,209, 018,220 
4 653 : 005,032, 14 6,032, 032,032, 068 
4 659 : 032, 032, 032, 032, 018,032,229 
4 665 : 032, 14 6, 158,20 6, 150,209, 190 
4 671 :158,206, 018, 14 9, 032, 14 6, 004 
4 677 :158, 183, 183, 183, 183, 183, 118 
4 683 :183, 183, 183, 183, 183, 183, 14 9 
4689 :183, 183, 183, 183, 183, 183, 155 
4695 :183,183,183,183,183,149,127 
4701 : 018,032, 14 6, 158,205, 150, 034 
4 7 07 : 209, 158,205, 018,005, 032,214 
4 713 :14 6, 032, 032,04 8,032,032, 171 
4 719 : 032, 032, 018,032,032, 14 6, 147 
4725 :150,209, 158,20 6,028,209, 053 
4 7 31 : 018, 14 9, 032,14 6, 028, 209, 193 
4 7 37 : 032,209, 032,20 9, 032,209, 084 
4 7 43 : 032,209, 032,20 9, 032,209, 090 
4749 : 032,209, 032,209, 032,209, 096 
47 55 : 032,209, 032, 14 9, 018, 032, 107 
47 61 :146, 02 8,209, 158,205, 150, 025 
47 67 : 209, 018,005,032, 14 6, 032, 089 
4773 : 032, 032, 032, 032,032, 032, 101 
4 7 79 : 018,032,032, 14 6, 158,206,251 
4 7 85 : 028,209,018, 155, 169,032,020 
47 91 : 032,032,032,032,032,032,119 
47 97 : 032, 032, 032,032, 032,032, 12 5 
4803 : 032,032,032,032,032,032, 131 
4 809 : 032,032, 032,032,032,223,07 2 
4 815 :14 6,028,209, 158,20 5, 018,203 
4 821 : 005, 032, 14 6,032,032,032,236 
4 827 : 032, 032,032,032,018,032, 141 
4 833 : 032, 14 6, 028,20 9, 018, 155, 04 5 
4 839 :169, 032,032, 032, 032, 032, 04 8 
4845 : 032,032,032,032, 032, 032, 173 
4 8 51 : 032,032,032,032, 032, 032,17 9 
4 8 57 : 032,032, 032, 032, 032, 032,18 5 
4 8 63 : 032,032, 032,223, 14 6, 028, 236 
4 8 69 : 209, 018,005, 032,14 6,032,191 
4 875 : 018,158,082, 07 9, 085,078,255 


4 881 : 068,146,005,032,018,032,062 
4 887 : 032,146,018,155,169,032,063 
4 893 : 032,032,032,032,032,032,221 
4 899 : 032,032,032,032,032,032,227 
4 905 : 032,032,032,032,032,032,233 
4 911 : 032,032,032,032,032,032,239 
4 917 : 032,032,032,223,146,018,024 
4 923 : 005,032,14 6,032,032,032,082 
4 929 : 032,032,032,032,018,032,243 
4 935 :032,155,032,032,032,032,130 
4 941 : 032,032,032,032,032,032,013 
4 947 : 032,032,032,032,032,032,019 
4 953 : 032,032,032,032,032,032,025 
4 959 : 032,032,032,032,032,032,031 
4965 :032,032,005,032,146,032,124 
4 971 : 032,032,04 9,032,032,032,0 60 
4 97 7 : 018,032,032,155,032,032,158 
4 983 : 032,032,032,032,032,032,055 
4 989 : 032,032,032,032,032,032,061 
4 995 : 032,032,032,032,032,032,067 
5001 : 032,032,032,032,032,032,073 
5007 : 032,032,032,032,005,032,052 
5013 :14 6,032,032,032,032,032,199 
5019 : 032,032,018,032,032,152,197 
5025 :032,032,032,032,032,032,097 
5031 :032,032,032,032,032,032,103 
5037 :032,032,032,032,032,032,109 
5043 : 032,032,032,032,032,032,115 
504 9 : 032,032,032,032,032,032,121 
5055 : 005,032,14 6,032,018,159,071 
5061 : 067,079,085,078,084,14 6,224 
5067 : 005,032,018,032,032,14 6,212 
5073 : 032,151,223,018,032,14 6,043 
507 9 :169,032,032,032,032,032,032 
5085 : 032,032,032,032,032,032,157 
5091 : 032,032,032,032,032,032,163 
5097 : 032,032,032,032,032,223, 104 
5103 : 018,032,14 6,169,032,018,142 
5109 : 005,032, 14 6,032,032,032,012 
5115 : 032,032,032,032,018,032,173 
5121 : 032,14 6,032,151,032,018,156 
5127 : 032,032,032,032,032,082,249 
5133 : 073,078,071,083,073,068,203 
5139 : 069,032,032,066,07 9,088,129 
514 5 : 073,078,071,032,032,032,087 
5151 : 032,032,14 6,032,032,018,067 
5157 : 005,032,14 6,032,032,032,060 
5163 : 048,032,032,032,018,032,237 
5169 : 032,146,032,151,032,018,204 
517 5 : 032,14 6,032,032,032,032,105 
5181 : 032,032,032,032,032,032,253 
5187 : 032,032,032,032,032,032,003 
5193 : 032,032,032,032,032,032,009 
5199 : 032,032,018,032,14 6,032,115 
5205 : 032,018,005,032,14 6,032,094 
5211 : 032,032,032,032,032,032,027 
5217 : 018,032,146,032,018,005,092 
5223 : 032,032,032,032,032,032,039 
5229 : 032,032,032,032,032,032,045 
5235 : 032,032,032,032,032,032,051 
5241 .-032,032,032,032,032,032,057 
524 7 : 032,032,032,032,032,032,063 
5253 : 032,032,032,032,032,032,069 
5259 : 032,032,14 5,14 5,14 6,000,127 
5265 :000,169,174,133,095,169,117 
5271 : 020,133,096, 169,17 5,133,109 
5277 : 090,169,026,133,091,169,067 
5283 :001,133,088,169,054,133,229 
5289 : 089,032,191,163,096,000,228 
5295 : 015,240,000,0 63,252,000,233 
5301 :255,252,000,255,092,000,Oli 
5307 : 255, 124,000,247,084,000,129 
5313 : 245,092,000,053,092,000,163 
5319 : 053,112,000,213,112,015,192 
5325 : 085,112,053,085,092,0 53,173 
5331 :117,087,053,095,087,053,191 
5337 : 085,222,013,085,254,003,111 
534 3 : 213,087,003,125,095,003,237 
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5349 :087,247,000,213,092,000,100 
5355 :213,092,015,000,000,000,043 
5361 : 000,000,000,000,000,000,241 
5367 : 000,000,000,000,000,000,247 
5373 : 000,000,000,000,000,000,253 
537 9 : 000,000,000,000,000,000,003 
5385 : 000,000,000,012,000,000,021 
5391 :251,000,000,187,000,000,197 
5397 :187,000,000,187,000,000,139 
5403 :188,000,000,192,000,000,151 
540 9 :000,000,000,000,000,000,033 
5415 :000,000,000,000,000,000,039 
5421 : Oli,000,213,092,000,255,104 
5427 :252,003,170,172,003,170,053 
5433 :172,003,170,172,003,170,235 
5439 :236,000,255,252,000,213,251 
54 4 5 :220,000,213,220,000,213,167 
54 51 : 220,000,213,220,000,213,173 
5457 :220,000,053,220,000,215,021 
5463 :112,000,215,112,000,215,229 
54 69 :112,000,255,240,000,235,167 
5475 :176,000,235,176,000,234,152 
5481 :236,000,255,255,015,000,098 
5487 :213,092,000,255,252,003,158 
54 93 :170,172,003,170,172,003,039 
5499 :170,172,003,170,236,000,106 
5505 : 255,252,000,213,220,000,04 5 
5511 : 213,220,000,213,220,000,233 
5517 :213,220,000,213,220,000,239 
5523 : 053,220,003,213,220,013,101 
5529 : 087,092,013,095,0 92,059,079 
5535 :115,252,235,195,172,236,084 
5541 : 003,172,235,2 55,171,255,232 
554 7 : 255,255,255,000,003,2 52,167 
5553 :000,015,255,000,063,255,253 
5559 : 000,063,215,000,0 63,223,235 
5565 : 000,061,213,000,061,087,099 
5571 : 000,013,087,000,013,092,144 
5577 : 000,053,092,003,085,127,049 
5583 :013,085,085,013,093,085,069 
558 9 :013, 119,085,013,093,221,245 
5595 : 013,0 93,085,013,117,125,153 
5601 : 013,095,251,003,085,235,139 
5607 : 000,213,235,000,255,060,226 
5613 : 000,000,000,000,000,000,237 
5619 : 000,000,000,000,000,000,243 
5625 : 000,000,000,000,000,000,249 
5631 :048,000,000,236,000,000,027 
5637 : 236,000,003,235,000,013,236 
564 3 : 235,255,24 5,124,085,085,016 
564 9 :192,085,087,000,085,092,04 6 
5655 : 000,085,112,000,255,192,155 
5661 : 000,192,000,000,192,000,157 
5667 : 000,192,000,000,000,000,227 
5673 :000,000,000,000,000,000,041 

567 9 : 003,252,000,003,255,000,048 

568 5 : 015,255,000,015,245,000,071 
5691 : 015,247,000,015, 117,000,197 
5697 : 015,085,000,003,085,000,253 
5703 : 013,095,000,053,092,000,068 
5709 :245,127,003,085,085,013,123 
5715 : 085,085,053,085,085,055,019 
5721 : 085,085,055,213,085,015,115 
5727 : 213,095,000,24 5,119,000,255 
5733 :213,087,000,213,087,000,189 
5739 :213,092,000,000,000,000,156 
574 5 :192,000,000,192,000,000,241 
5751 :192,000,000,192,000,000,247 
5757 :128,000,192,192,003,176,048 
5763 :192,003,17 6,000,015, 172,177 
5769 : 000,055,172,255,213,240,048 
577 5 : 085,087,000,085,092,000,236 
5781 : 085,112,000,085,192,000,111 
5787 :255,000,000,000,000,000,154 
5793 : 000,000,000,000,000,000,161 
5799 :000,000,000,000,000,000,167 
5805 : 000,000,015,240,000,063,235 
5811 : 252,000,255,252,000,255,169 


5817 : 092,000,255,124,000,247,135 
5823 : 084,000,24 5,092,000,053,153 
5829 : 092,000,053, 115,000,213,158 
5835 :115,003,085,115,003,095,107 
5841 : 095,003,085,24 5,003,085,213 
584 7 : 087,003,24 5,093,003,093,227 
5853 :119,000,215,220,000,245,252 
5859 : 092,000,213,092,000,213,069 
5865 : 092,000,213,092,015,000,133 
5871 : 000,000,000,000,000,000,239 
5877 : 000,000,000,000,000,0 60,049 
5883 :000,000,235,000,000,235,209 
5889 :000,000,236,000,000,112,093 
5895 : 000,000,112,000,000,236,0 99 
5901 : 000,000,172,000,000,236,165 
5907 : 000,000,24 0,000,000,0 64,067 
5913 : 000,000,000,000,000,000,025 
5919 : 000,000,000,000,000,000,031 
5925 : 000,000,000,000,000,000,037 
5931 : 000,000,000,000,000,000,043 
5937 :000,000,000,000,000,000,049 
594 3 : 000,000,000,000,000,000,055 
594 9 : 000,000,000,000,000,000,061 
5955 : 000,000,000,000,000,000,067 
5961 : 000,000,000,003,000,000,07 6 
5967 : 061,207,240,24 5, 117,223,148 
5973 :245,085,085,245,085,213,019 
597 9 :255,085,093,253,085,119,213 
5985 :255,117,085,255,253,085,123 
5991 : 063,015,085,000,003,255,012 
5997 : 000,000,000,000,000,000,109 
6003 : 000,000,000,000,000,000,115 
6009 : 000,000,000,000,000,000,121 
6015 : 000,000,012,000,000,055,194 
6021 : 000,000,213,192,003,085,114 
6027 :112,255,085,112,234,223,136 
6033 :112,234,179,112,234,195,187 
6039 :24 0,234,191,176,234,181,127 
6045 :242,250,181,126,095,237,008 
6051 :122,087,173, 122,087,175,161 
6057 :255,255,255,255,000,000,165 
6063 : 000,000,000,000,000,000,175 
6069 : 000,000,000,000,000,000,181 
607 5 : 000,000,000,000,000,000,187 
6081 : 000,000,000,000,000,000,193 
6087 : 000,000,000,000,000,000,199 
6093 : 000,048,000,000,239,000,236 
6099 : 000,238,000,000,238,000,175 
6105 : 000,238,000,000,0 62,000,005 
6111 : 000,003,000,000,000,000,226 
6117 : 000,000,000,000,000,000,229 
6123 : 000,000,Oli,015,240,000,245 
6129 : 063,252,000,063,255,000,106 
6135 : 053,255,000,061,255,000,103 
6141 : 021,223,000,053,0 95,000,133 
614 7 : 053,092,000,013,0 92,000,253 
6153 : 013,087,000,013,085,240,191 
6159 : 053,085,092,213,093,092,131 
6165 :213,245,092,183,085,092,163 
6171 :191,085,112,213,087,192,139 
6177 :245,125,192,223,213,192,199 
6183 : 053,087,000,053,087,000,063 
6189 : 015,053,087,000,0 63,255,006 
6195 : 000,058,170,192,058,170,187 
6201 :192,058,170,192,059,170,130 
6207 :192,063,255,000,055,087,203 
6213 : 000,055,087,000,055,087,097 
6219 : 000,055,087,000,055,087,103 
6225 : 000,055,092,000,013,215,200 
6231 : 000,013,215,000,013,215,031 
6237 : 000,015,2 55,000,014,235, 100 
624 3 : 000,014,235,000,059,171,066 
624 9 : 000,255,255,000,015,053,171 
6255 : 087,000,063,255,000,058,062 
6261 :170,192,058,170,192,058,189 
6267 :170,192,059,170,192,0 63,201 
6273 :255,000,055,087,000,055,0 69 
6279 :087,000,055,087,000,055,163 
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628 5 : 087,000,055,087,000,055, 169 
6291 : 092,000,055,087,192,053, 114 
6297 : 213,112,053,24 5,112,0 63,183 
6303 : 205,236,058,195,235,058,122 
6309 :192,059,234,255,235,255,115 
6315 :2 55,255,255,000,000,000,168 
6321 : 000,000,000,000,000,000,177 
6327 : 000,000,000,000,000,000,183 
6333 : 012,000,000,059,000,000,004 
6339 : 059,000,000,2 35,192,000,169 
634 5 : 235,112,000,0 61,095,255,191 
6351 : 003,085,085,000,213,085,166 
6357 : 000,053,085,000,013,085,193 
6363 : 000,003,255,000,000,003,224 
6369 : 000,000,003,000,000,003,231 
637 5 : 000,000,000,000,000,000,231 
6381 : 000,063,192,000,255,24 0,219 
6387 : 000,255,252,000,215,252,193 
6393 :000,247,252,000,087,124,191 
6399 : 000,213, 124,000,213,112,14 9 
640 5 : 000,053, 112,000,053,0 92,059 
6411 : 000,253,085,192,085,085,199 
6417 :112,085,117,112,085,221,237 
6423 :112,119,117,112,085,117,173 
6429 :112,125,093,112,239,24 5,187 
6435 :112,235,085,192,235,087,213 
6441 : 000,0 61,255,000,000,000, 101 
644 7 : 000,000,000,000,003,000,050 
64 53 : 000,003,000,000,003,000,059 
64 59 : 000,003,003,000,002,014,081 
64 65 :192,003,014,192,003,058,015 
6471 : 240,000,058,220,000,015,092 
647 7 : 087,255,000,213,085,000,205 
6483 : 053,085, 000,013,085,000,0 63 
64 8 9 : 003,085,000,000,255,000,176 
64 95 : 000,000,000,000,000,000,095 
6501 : 000,000,000,000,000,000,101 
6507 : 000,000,000,0 63,192,000,106 
6513 :255,192,000,255,24 0,000,031 
6519 : 095,240,000,223,240,000,149 
6525 : 093,240,000,085,240,000,015 
6531 : 085, 192,000,2 45,112,000,253 
6537 : 053,0 92,000,253,095,000,118 
6543 :085,085,192,085,085,112,019 
654 9 : 085,085,092,085,085,220,033 
6555 : 085,087,220,117,087,240,223 


6561 : 221,095,000,213,087,000,009 
6567 : 213,087,000,053,087,000,095 
6573 : 000,000,000,000,000,000,173 

657 9 : 000,000,000,000,000,000,179 

658 5 : 000,000,000,0 60,000,000,245 
6591 : 235,000,000,235,000,000,149 
6597 : 059,000,000,013,000,000,013 
6603 : 013,000,000,059,000,000,019 
6609 : 058,000,000,059,000,000,070 
6615 : 015,000,000,001,000,000,231 
6621 : 000,000,000,000,000,000,221 
6627 : 000,000,000,000,000,000,227 
6633 : 000,000,000,000,000,015,248 
6639 :240,000,063,252,000,063,089 
664 5 : 255,000,053,255,000,061,101 
6651 : 255,000,021,223,000,053,035 
6657 : 0 95,000,0 53,092,000,205,190 
6663 : 092,000,205,087,000,205,084 
6669 : 085,192,24 5,24 5,192,095,043 
667 5 : 085,192,213,085,192,117,135 
6681 : 095,192,221,117,192,055,129 
6687 : 215,000,053,0 95,000,053,191 
6693 : 087,000,053, 087,000,053,061 
6699 :087,000,015,000,000,000,145 
6705 : 000,000,000,000,000,000,049 
6711 : 000,000,000,000,000,000,055 
6717 : 000,000,000,000,048,000,109 
6723 : 000,220,000,003,087,000,121 
6729 : 013,085,192,013,085,255,204 
6735 :013,247,171,013,206,171,132 
6741 : 015,195,171,013,254,171,136 
674 7 :143,0 94,171,189,0 94,175, 189 
6753 :173,123,245,173,122,213,122 
6759 :255,250,213,255,255,255,050 
67 65 : 000,000,000,000,000,000,109 
6771 : 000,000,000,000,000,000,115 
6777 : 000,000,000,000,000,000,121 
6783 : 000,000,000,000,000,000,127 
6789 : 000,000,000,000,000,000,133 
6795 -.000,000,000,192,015,243,077 
6801 :124,247,093,095,085,085,106 
6807 : 095,087,085,0 95,117,085,203 
6813 .-255,221,085,127,085,093,255 
6819 :255,085,127,255,085,240,186 
682 5 : 252,255,192,000,000,000,100 
6831 : 0 56,032,057,056,053,0 54,227 
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di C.Devllle 



trad. ed adatt. di E.Stefanl 

Un programma per disegnare uti¬ 
lizzando delle forme geometri¬ 
che predefinlte: particolarmen¬ 
te adatto per sviluppare la crea¬ 
tività dei bambini, e per gli adul¬ 
ti per creare schermate grafi¬ 
che di presentazione. E' richie¬ 
sto l'uso di un Joystick e del 
disk drive. 

Con Color Craft si può disegnare sullo 
schermo utilizzando una libreria di sim¬ 
boli predefiniti con cerchi, rettangoli e 
triangoli. Dopo aver caricato ed attiva¬ 
to il primo programma, viene letto auto¬ 
maticamente il secondo programma in 
linguaggio macchina, ed appare infine 
sullo schermo una freccia nera. 

Utilizzate il joystick in porta 2 per muo¬ 
vere la freccia sullo schermo; per prima 
cosa, selezionate il colore desiderato 
portando la freccia sulla linea di colori 
nella parte bassa dello schermo e pre¬ 
mendo il pulsante di fuoco. 

Il bordo dello schermo assumerà la colo¬ 
razione scelta, per ricordarvi con quale 
colore state lavorando. Ora potete sele¬ 
zionare la forma da tracciare portando 
la freccia su quella desiderata (nella 
parte destra dello schermo) e premen¬ 
do il pulsante di fuoco. 

Una forma nel colore selezionato appari¬ 
rà nell'area di disegno: muovetela nella 
zona desiderata e premete il pulsante 
di fuoco per fissarla sullo schermo. Il jo¬ 
ystick permette di muoversi molto rapi¬ 
damente da una parte all'altra dello 
schermo; se desiderate un controllo di 
posizione più accurato, utilizzate i tasti 
cursore. La barra spaziatrice effettua 
la stessa funzione del pulsante di fuo¬ 
co del joystick. 


Oltre alle varie forme, potete seleziona¬ 
re la "gomma per cancellare" indicata 
dal rettangolo vuoto nell'angolo inferio¬ 
re destro dello schermo. La "gomma" 
permette di cancellare tutto ciò sopra 
cui essa viene passata, portando il co¬ 
lore di primo piano uguale a quello del 
fondo. 

Due rettangoli speciali si trovano nel¬ 
l'angolo superiore destro dello scher¬ 
mo: uno di questi è contraddistinto dal¬ 
la lettera S e serve per salvare su disco 
i vari disegni tracciati. L'altro rettango¬ 
lo è oontraddistinto dalla lettera L e ser¬ 
ve per caricare da disco disegni prece¬ 
dentemente salvati. Quando il program¬ 
ma vi chiede un nome di file, digitate un 


Note per II caricamento, la digi¬ 
tazione ed il trasferimento su di¬ 
sco del programma 


Color Craft è composto da un primo pro¬ 


nome valido di file su disco (è una buo¬ 
na idea assegnare a tutti i disegni un'e¬ 
stensione comune nel nome di file, in 
modo da poterli immediatamente ricono¬ 
scere in fase di caricamento; ad esem¬ 
pio: "TRAMONTO.DIS"). 

Il rettangolo con la scritta NEW cancel¬ 
la tutta l’area di disegno preparandola 
ad un nuovo disegno, mentre il rettango¬ 
lo con la scritta END provoca l’uscita 
dal programma. 


S87 SUPERCOMMODORE C64 e 128 29 





gramma in BASIC e da un secondo pro¬ 
gramma in linguaggio macchina. 

Gli abbonati che non dispongono della 
cassetta allegata alla rivista dovranno 
utilizzare MLX (vedi in altra parte della 
rivista) per digitare il secondo program¬ 
ma. Occorrerà rispondere alle domande 
di MLX con: 

indirizzo iniziale: 49152 
indirizzo finale: 52175 

Dopo aver digitato e salvato su disco il 
secondo programma con il nome di "CO¬ 
LOR CRAFT.OBJ", sarà sufficiente cari¬ 
care e dare il RUN al primo programma. 

I possessori di cassetta dovranno inve¬ 
ce trasferire su disco entrambi i pro¬ 
grammi: il primo, in BASIC, si trasferi¬ 
sce normalmente con un LOAD da na¬ 
stro ed un SAVE su disco. Per il secon¬ 


do occorre invece utilizzare MLX con 
gli indirizzi di cui sopra. 

Dopo aver digitato questi indirizzi, sullo 
schermo comparirà il valore relativo al¬ 
l'indirizzo iniziale seguito dal cursore di 
MLX; premete SHIFT e L per caricare il 
programma: vi verrà chiesto se volete 
caricare da nastro o disco (scegliete na¬ 
stro) ed il nome del file (digitate il nome 
con cui il programma è registrato sulla 
cassetta). 

Al termine del caricamento ricomparirà 
sullo schermo il valore relativo all'indiriz¬ 
zo iniziale seguito dal cursore di MLX; 
premete SHIFT e S per salvare il pro¬ 
gramma: vi verrà chiesto se volete sal¬ 
vare su nastro o disco (scegliete disco) 
ed il nome del file (digitate il nome con 
cui avete caricato il programma dalla 
cassetta). 

Ricordiamo che, per conoscere il punto 


esatto di inizio dei vari programmi su 
cassetta ed il nome con il quale essi so¬ 
no stati registrati, è sufficiente inserire 
quest'ultima completamente riavvolta 
nel registratore, azzerare il contana- 
stro e digitare: 

LOAD"*" (RETURN) • 

Dal momento che sicuramente non esi¬ 
ste sulla cassetta alcun programma di 
nome '*’, il computer passerà in rasse¬ 
gna tutti i programmi incontrati visualiz¬ 
zandone il nome con il messaggio: 

FOUND XXXX 

Sarà quindi utile annotarsi su un foglio i 
nomi dei programmi e la relativa posizio¬ 
ne del contanastro (sottrarre tre o quat¬ 
tro unità dal valore corrispondente al¬ 
l'apparizione del messaggio FOUND...). 


Color Craft - Programma 1 


10 IFFL=OTHENFL=1:LOAD "COLOR CRAFT.OBJ", 
8,1 :rem 117 

20 FL=2:POKE56,32:CLR:DIMFP(2,9),BAR(10) , 
SC(9),MP(2,9) :rem 37 

30 POKE2040,13:POKE20 42,253:POKE2043,254 : 

POKE2044,255 : rem 211 

40 DIMCO(9) :CO(1)=1:CO(2)=7:CO(3)=5:CO (4) 
= 6:CO(5)=0 : CO(6)=2 : CO(7)=14 : rem 214 

50 CO( 8 ) = 10 :CO( 9 ) = 13 :rem 21 

60 DIMS1(9),S2(9),S3 (2),S4 (2) : rem 244 

70 S1(1)=01:S2(1)=197:S1(2)=129:S2(2)=198 
:S1(3)=129:S2(3)=196 : rem 160 

80 SI(4)=65:S2(4)*196 : SI(5)=193:S2(5)=196 
:S1(6)=1:S2(6)=196 :rem 80 

90 SI(7)=193:S2(7)=197:SI<8)=129:S2(8)=19 
7:S1(9)=65:S2(9)=197 : rem 209 

100 S3(1)=1:S4(1)=198:S3(2)=65:S4(2)=198: 

POKE53242,63 : rem 53 

110 CO(0)=3 : SI(0)=S1(1) :S2(0)=S2(1) 

:rem 27 

120 V=53248:POKEV+16,0 :NR=1:POKEV+29,0 : PO 
KEV+23,0 : rem 125 

130 POKE53276,PEEK(53276)OR(2 A 0): rem 37 
140 BAR(1)=1:BAR(2)=2:BAR(3)=4:BAR(4)=14: 

BAR(5)=5 : BAR(6)= 6 : BAR(7)=7 : rem 176 

150 BAR(8)=10 : BAR(9)=11 : BAR(10)=13 :POKE53 
280,14 :rem 40 

160 F0RI=1T09:SC(I)=CO(I):NEXT:POKE2045,1 
4:POKE2046,15 : rem 233 

170 POKE53245,128:POKE53246,3:POKE53243,8 
5:POKE53244,201:SYS50944 : rem 201 

180 POKE53245,192:POKE53246,3:POKE53243,1 
49 :POKE53244,201:SYS50944 :rem 252 

190 POKEV+16,96 :POKEV+10,43:POKEV+12,43:P 
OKEV+11,59:POKEV+13,82 : : rem 14 

200 POKEV+45,0:POKEV+44,0:NH=0 :rem 242 
210 BASE=8192:POKE53272,PEEK(53272)OR8 

:rem 169 

220 POKE53265,PEEK(53265)OR32:POKE53270,P 
EEK(53270)ORI6:POKE53281,3 : rem 85 

230 POKE251,0:POKE252,32:POKE253,64:POKE2 
54,33:POKE49152,255:SYS49153:rem 239 
240 POKE251,64:POKE252,33:POKE253,64:POKE 
254,63:POKE49152,0:SYS49153 : rem 194 
250 POKE251,0:POKE252,4:POKE253,232:POKE2 
54,7:POKE4 9152,0:SYS49153 : rem 82 

260 POKE251,0:POKE252,216:POKE253,231:POK 
E254,219 :POKE49152,0.-SYS49153 

: rem 2 8 

270 CR=14:GOSUB1290 :rem 86 

280 POKE251,0:POKE252,62:POKE253,64:POKE2 
54,63:POKE49152,255:SYS49153:rem 250 
290 L=1:FORI=0TO9:FORJ=0TO3:POKE56256+I*4 
+J,BAR(L) :NEXTJ:L=L+1:NEXTI : rem 252 

300 FORBY=87 68TO14848STEP320 : rem 172 


310 LY=INT(BY-BASE)/8+1024:POKELY,96 

:rem 151 

320 FORI=0TO7:POKEBY+I,PEEK(BY+I)OR64: NEX 
T:NEXT : rem 50 

330 F0RBY=14599T014853STEP8:POKEBY, 255 

: rem 7 3 

340 LY-INT(BY-BASE) /8+552 96 : POKELY, 6 :NEXT 

:rem 30 

350 F0RBY=14598T014852STEP8:POKEBY, 255 

:rem 73 

360 LY=INT(BY-BASE)/8+ 55296 :POKELY,6:NEXT 

:rem 32 

370 L=16191:FORI=0TO39:POKEL-(1*8),170:NE 
XT :rem 38 

380 F0RI=1T09:CO(I)=SC(I) :NEXT : rem 97 

390 POKE53245, 64:POKE53246, 63 :POKE53243,1 
93 :POKE53244,198:SYS50944 : rem 17 

400 POKEV+41,0:POKEV+42,0:POKEV+43,0 

:rem 94 

410 POKE53245,128:POKE53246, 63 :POKE53243, 
S3(1):POKE53244,S4(1):SYS50944 

:rem 13 

420 POKE53245,192:POKE53246,63:POKE53243, 
S3(2):POKE53244,S4(2):SYS50944 

:rem 17 

430 POKEV+6,30:POKEV+7,220:POKEV+8,7 0 :POK 
EV+9,220 :POKEV+21,120 : rem 145 

440 GOSUB1040:POKE49233,3 : rem 170 

450 FORSB=NHT09:POKEV+16,96 : rem 176 

460 NY=FP(2,SB):NX=FP(1,SB):IFNX<256THEN4 
80 :rem 97 

470 POKEV+16,97:NX=NX-255 : rem 218 

480 POKE53285,CO(SB) : rem 118 

490 POKE53245, 64 :POKE53246,3 :POKE53243,SI 
(SB):POKE53244,S2(SB):SYS50944 

: rem 114 

500 POKEV,NX:POKEV+1,NY:POKE4918 9,0:SYS49 



185 

: rem 

242 

510 

NEXTSB:NH=1:POKE49233,0 

: rem 

114 

520 

FL=9 

: rem 

159 

530 

POKEV+4,255:POKEV+5,105 :POKEV+16, 

96 



: rem 

17 

540 

POKE51207,61:POKE51350,239 

:POKE49189, 


2:POKE251,4:POKE252,208 

: rem 

138 

550 

POKEV+21,PEEK(V+21)OR4 

: rem 

8 

560 

SYS51011 

: rem 

146 

570 

IFPEEK (50978) O0THEN560 

: rem 

34 

580 

FORI=lTO300:NEXT 

: rem 

234 

590 

X=PEEK(V+4)+24 :Y=PEEK(V+5)+10 :IF(PEEK 


(V+16)AND4)>0THENX=X+255 

: rem 

71 

600 

IFY>240THEN870 

: rem 

32 

610 

IFX>255THEN680 

: rem 

37 

620 

IFY<FP(2,7)-4THEN530 

: rem 

96 

630 

IFX<70THENPOKEV+21,0:FL=9: 

POKE53280,1 


4 :GOTO220 

: rem 

6 


30 SUPERCOMMODORE 064 e 128 V87 



640 IFX<FP(1,6)THEN1320 : rem 44 

650 F0RSB=7T09:IFX<FP(1,SB)THEN730 

:rem 102 

660 NEXT :rem 219 

670 SB=10:GOTO730 : rem 221 

680 IFX<275THEN620 : rem 38 

690 IFYC100THEN1110 : rem 70 

700 F0RSB=2T05:IFY<FP(2,SB)THEN730 

:rem 91 

710 NEXT : rem 215 

720 SB=10:IFX>FP(2,9)+25THENSB=6: rem 114 
730 SB=SB-1:POKE53245,64:POKE53246,3:POKE 
53243,SI(SB):POKE53244,S2(SB):SYS5094 
4 :rem 110 

740 IFSB=5THEN970 : rem 0 

750 IFFL=10THENGOSUB900 : rem 163 

760 POKEV+l,FP(2,SB):NX=FP(1,SB):IFNX<256 
THEN780 : rem 144 

770 POKEV+16,PEEK(V+l6)ORI :NX=NX-255 

:rem 157 

780 POKEV,NX:POKE53285,CO(SB) : rem 10 

790 POKEV+21,(PEEK(V+21)AND251)ORI 

: rem 199 

800 POKE49189,0:POKE251,0:POKE252,208:POK 
E51207,0:POKE51350,196 : rem 78 

810 POKEV+1,MP(2,SB):NX=MP(1,SB):POKEV+16 
,PEEK(V+16)AND254:IFNX<256THEN830 

:rem 223 

820 POKEV+16,PEEK(V+16)ORI :NX=NX-255 

:rem 153 

830 POKEV,NX : rem 242 

840 SYS51011 : rem 147 

850 IFPEEK (50978) O0THEN840 : rem 36 

860 POKE49189,0:POKEV+21,120:SYS49185:GOT 
0530 :rem 147 

870 FL-10:FORL=2TO10:IFX<(L-l)*32+24THEN8 
90 : rem 247 

880 NEXT:L=ll : rem 4 

890 L=L-1:NCOLR=BAR(L) :POKE53280, BAR(L) :C 
R=BAR(L) :GOSUB1290:GOTO530 : rem 83 

900 CO(S B)=NCOLR:FL= 9 :POKE 49189, 0 :POKEV+2 
1,120 : rem 238 

910 POKE53280,14:CR=14:GOSUB1290: rem 83 
920 POKEV+1,FP(2,SB):NX=FP(1,SB):IFNX<256 



THEN940 

: rem 

140 

930 

POKEV+16,PEEK(V+16)ORI :NX=NX 

-255 




: rem 

155 

940 

POKEV,NX:POKE532 8 5, CO(SB) 

: rem 

8 

950 

POKEV+21,(PEEK(V+21)AND251)ORI 




: rem 

197 

960 

POKE49189,0:SYS49185:RETURN 

: rem 

151 

970 

FL=9:POKE53280,14:NCOLR=0:CR 

=14:GOSUB 


1290:GOTO 760 

: rem 

208 

980 

NM$="”:II=0 

: rem 

26 

990 

GETA$:IFA$=""THEN990 

: rem 

103 

1000 IFA$=CHR$(13)THENRETURN 

: rem 

183 


1010 IFA$=CHR$(20)THENPRINTCHR$(20);:II=I 
1-1:NM$=LEFT$(NM$,II):GOTO990 

:rem 179 

1020 IFA$<CHR$(48)ORA$>CHR$(90)THEN990 

:rem 129 


1030 11=11+1:NM$=NM$+A$:PRINTA$;:GOTO990 

:rem 130 

1040 FP(1, 0)=294:FP(1, 1)=294:FP (1,2)=294: 
FP(1,3)=294:FP(1,4)=294:FP (1,5)=294 

:rem 214 

1050 FP(2,1)=110:FP(2,2)=140:FP(2,3)=165: 

FP(2,4)=190:FP(2,5)=218 : rem 47 

1060 FOR I=6T09:FP(1,I)=65+(I-5)*45:FP(2, 
I)=220 :NEXT:FP(1,7)=FP(1,7)-5 

: rem 8 0 

1070 FP(1,8)=FP(1,8)-2 : rem 92 

1080 F0RI=1T05:MP(1,1)=255:MP(2,1)=FP(2,1 
) :NEXT : rem 249 

1090 F0RI=6T09:MP(1,I)=FP(1,1):MP(2,I)=FP 
(2,1)-24:NEXT : rem 135 

1100 MP (2, 5) =FP (2,5) -24 : RETURN : rem 167 

1110 POKE251,0:POKE2 52,4 :POKE253,39:POKE2 
54,4:POKE49152,32:SYS49153 :rem 133 
1120 CR=14:FL=9:POKE53280,CR:GOSUB1290 

:rem 239 

1130 POKE51729,0:OPEN15,8,15:SYS51419:IFY 
<75THEN1190 : rem 33 

1140 PRINT"{HOME}(BLU)LOAD:NOME FILE 

GOSUB980:SYS51669:GOSUB1290 : rem 12 
1150 OPEN2,8,2,NM$: INPUT#15,A$,B$,C$,C$:S 
YS51419 : rem 177 

1160 IFA$="00"THENPRINT"{HOME)LOADING "NM 
$ :FORI=lTO1000:NEXT:SYS51669:GOT0118 
0 :rem 163 

1170 PRINT"{HOME}{ 2 SPAZI)"B$:FORI=lTO30 
00:NEXT:GOTO1230 : rem 3 

1180 GOSUB1290:SYS51937:POKE14847,255:GOT 
01250 :rem 204 

1190 PRINT"{HOME}(BLU)SAVE:NOME FILE: ";: 
GOSUB980:SYS51669:NM$=NM$+",S,W":GOS 
UB1290 : rem 134 

1200 OPEN2,8,2,NM$: INPUT#15,A$,B$,C$,C$:S 
YS51419 : rem 173 

1210 IFA$="00"THENPRINT"{HOME} SAVING "NM 
$:GOTO1240 : rem 109 

1220 PRINT"{HOME}{ 2 SPAZI}"B$:FORI=lTO30 
00:NEXT : rem 198 

1230 SYS51669:GOSUB1310:GOSUB1290:P1$="@" 
:GOTO520 : rem 127 

1240 FORI=lTO2000:NEXTI:SYS51669:GOSUB129 
0 :SYS51708 : rem 148 

1250 GOSUB1310:P1$="@" : rem 173 

1260 IFPEEK(51729)=0THEN520 : rem 9 

1270 SYS51419:PRINT"{HOME} ERRORE DISCO N 
UMERO{ 3 SPAZI}= "PEEK(51729) 

: rem 189 

1280 FORI=lTO3000:NEXT:SYS51669:GOSUB1290 
:GOTO520 : rem 28 

1290 POKE251,0:POKE252,216:POKE253,40:POK 
E254,216 :POKE49152,CR:SYS49153 

:rem 128 

1300 RETURN : rem 164 

1310 SYS65484:CLOSE2:CLOSE15:RETURN 

:rem 225 

1320 POKE56, 160:CLR:SYS 64759 : rem 134 

1330 END : rem 158 


Color Craft - Programma 2 


4 9152 : 000,216, 160, 000, 173,000, 037 
4 9158 :192, 14 5,251, 024, 165,251, 010 
4 9164 :105, 001,133,251, 165, 252, 151 
4 9170 :105, 000, 133, 252,197,254,191 
4 9176 : 208,234,165,251, 197, 253, 052 
4 9182 : 208,228,096, 07 6, 072, 192, 134 
4 9188 :198, 14 2, 067, 198,14 0,068,081 
4 9194 :198, 096, 032,02 9,192,186, 007 
4 9200 :18 9, 001, 001,201, 14 0,208,020 
4 9206 : 007, 189,002,001, 201, 164,106 
4 9212 : 240, 015, 172,068,198, 174,159 
49218 : 067, 198, 173, 066, 198,072, 072 
4 9224 :173,037,208,041, 015, 141, 175 
4 9230 : 036, 192,201,000,208,005,208 
4 9236 :169, 003, 141, 036, 192, 160,017 
4 9242 : 000, 140, 042, 192, 14 0,04 6, 138 
4 9248 :192,14 0,038, 192, 14 0,041, 071 
4 9254 :192, 14 0,058, 192, 14 0, 062, 118 


4 92 60 :192,169,007, 133,252, 169,006 
4 92 66 :248,024,10 9, 037, 192, 133,089 
4 9272 : 251, 177,251, 056,233, 013,077 
4 9278 : 010, 010,010, 010,010, 010, 186 
4 92 84 : 024,105,064,133,251, 169, 110 
4 9290 : 003,105,000, 133,252, 173, 036 
4 9296 : 036, 192,201, 003,208, 004,020 
4 9302 :169,255, 14 5, 251, 177, 251, 118 
4 9308 : 201,000,208,00 9,200, 152, 158 
4 9314 : 201,063,208,233,096, 145, 084 
4 9320 : 251, 162,192, 14 2,039, 192, 122 
4 9326 :162, 000,14 2,04 2, 192, 04 5,24 5 
4 9332 :039, 192,201, 000,208, 023,07 5 
4 9338 :173, 039, 192,238,04 2, 192,038 
4 934 4 : 238,042, 192, 074,07 4,201,24 5 
4 9350 : 000,24 0,215, 141,039, 192,001 
4 9356 :17 7,2 51,07 6, 17 9, 192,201, 000 
4 9362 : 004, 14 4,005, 07 4,07 4,07 6, 07 5 


M7 SUPERCOMMODORE C64 e 126 31 



4 9368 :209, 192,141, 04 0, 192, 162, 128 
4 9374 :208,134,254,173,037, 192, 196 
4 9380 : 010,133,253, 14 0,038, 192,226 
4 9386 :160, 000, 17 7,253, 141,04 3,24 0 
4 9392 :192, 173, 038,192,032,109, 208 
4 9398 :194,173, 048,192,010,010, 105 
4 94 04 : 010,024,109,042, 192, 024,141 
4 9410 :109,04 3, 192,141,04 5, 192,212 
4 9416 :173, 04 4,192, 105,000, 141, 151 
4 94 22 : 046, 192,162, 016, 134,253, 04 9 
4 9428 :160, 000, 177,253, 141,041,024 
4 94 34 :192, 173,037,192, 02 4,105,237 
49440 : 001, 045, 041, 192,201, 000,000 
4 9446 : 240, 017, 024,173,045,192,217 
4 94 52 :105,255, 141, 04 5, 192,173, 187 
4 94 58 : 046, 192, 105, 000, 141,04 6,068 
4 94 64 :192, 173,04 5, 192,056,233, 17 9 
4 94 70 : 024,141,04 5, 192,173,04 6, 171 
4 9476 :192, 233,000, 141, 046, 192, 104 
4 94 82 :173,04 5, 192, 07 4,010,141, 197 
4 94 88 : 045, 192, 173, 04 5, 192,141, 100 
4 94 94 : 043, 192, 173, 04 6, 192,141, 105 
4 9500 : 04 4,192, 07 8,04 4,192, 110,24 0 
4 9506 : 043, 192, 07 8,04 4,192, 110,24 5 
4 9512 : 04 3,192, 07 8,04 4,192, 110,251 
4 9518 : 04 3, 192, 024,173,04 3, 192,009 
4 9524 :141, 04 7, 192,162,208, 134,232 
4 9530 : 254,173, 037,192,010,024,04 4 
4 9536 :105, 001/133,253, 160, 000, 012 
49542 :177, 253,141,049,192, 173,095 
4 9548 : 038, 192, 032,109, 194,138, 075 
4 9554 : 024,109, 04 9,192,056,233,041 
4 9560 : 050, 141, 04 9, 192,07 4,07 4,220 
4 9566 : 07 4, 141, 050, 192, 173, 04 9, 069 
4 9572 :192, 041, 007,141,054,192, 023 
4 9578 :173, 04 5, 192,041,007, 141, 001 
4 9584 : 055, 192, 056,169,007,237, 124 
4 9590 : 055, 192, 141,055, 192, 169,218 
4 9596 : 000, 133,253, 133,254,173, 110 
4 9602 : 050, 192,201, 000, 24 0,02 9, 138 
4 9608 :170,169, 001, 141, 057,192, 162 
4 9614 :169, 064,141,056, 192,024,084 
4 9620 :173,056,192,101, 253,133,096 
4 9626 : 253, 173, 057,192, 101,254,224 
4 9632 :133,254,202,208,238,162, 141 
4 9638 : 008,173, 04 7,192,024,101,007 
4 9644 : 253, 133,253, 165,254,105, 119 
4 9650 : 000,133,254,202,208,239,254 
4 9656 : 024,173, 054,192, 101,253,021 
4 9662 :133, 253, 165,254,105,000, 140 
4 9668 :133,254, 141, 052, 192,165, 173 
4 9674 : 253, 141, 051, 192,02 4,169,072 
4 9680 : 032, 101,254,133,254,173, 195 
4 9686 : 036, 192, 201, 003,208, 008, 158 
4 9692 :169,000, 141, 053, 192,07 6, 14 7 
4 9698 : 039, 194,032, 127, 194, 17 4,026 
4 9704 : 055, 192, 169, 003,202,24 0, 133 
4 9710 : 004,010,07 6,04 4,194,141,003 
4 9716 : 058, 192,056, 169,255,237,251 
4 9722 :058,192, 141, 062, 192, 160, 095 
4 9728 : 000,177,253, 04 5, 062, 192, 025 
4 97 34 :14 5,253, 166, 003, 173, 053,095 
4 9740 :192,216,010,010, 024,109, 125 
4 9746 : 053,192,202,208,246, 141, 100 
4 97 52 : 053, 192, 04 5, 058, 192,141,001 
4 97 58 : 058,192, 177,253,013, 058,077 
4 97 64 :192, 14 5, 253, 172,038, 192, 068 
4 97 70 : 07 6, 18 6, 192, 162,000, 141, 095 
4 9776 : 04 8, 192,056, 233, 003, 14 4,020 
4 9782 : 007,232, 141,04 8,192, 07 6, 04 6 
4 9788 :114,194,096, 165,253, 141,063 
4 97 94 : 060, 192, 165, 254,141, 061,235 
4 9800 :192,07 8, 052, 192,110, 051,04 3 
4 9806 :192,07 8, 052, 192, 110, 051, 04 9 
4 9812 :192,07 8, 052, 192, 110, 051,055 
4 9818 :192,169, 004,133,254, 169, 051 
4 9824 : 000, 133, 253, 024,109, 051,218 
4 9830 :192, 133, 253, 165,254, 109,24 8 


4 9836 : 052, 192, 133,254,160,000, 195 
4 9842 :177,253,074,074,074,074, 136 
4 9848 : 201, 000,240, 110,205, 036,208 
4 98 54 :192,24 0,105,201,003,24 0, 14 7 
4 98 60 :101,169, 002, 141,053, 192, 086 
4 9866 :177,253, 041, 015, 201, 000, 121 
49872 :240,064,201,003,240,060,248 
4 9878 :205, 036, 192, 24 0,055, 169, 087 
4 9884 : 216, 133,254,169,000, 133, 101 
4 9890 : 253,024,109,051,192, 133,220 
4 9896 : 253, 165,254,109, 052,192, 233 
4 9902 :133, 254,169, 003, 141, 053,223 
4 9908 :192, 177,253,041, 015,201, 099 
4 9914 : 000,24 0, 021,205, 036, 192,17 6 
4 9920 : 240, 016,201,003, 24 0, 012,200 
4 9926 : 032, 075, 195,160, 000, 173, 129 
4 9932 : 053, 192, 201,001,24 0, 024,211 
4 9938 :173, 036, 192, 141, 059, 192,043 
4 9944 :17 7, 253,041,24 0, 013, 059,039 
4 9950 :192, 14 5,253,173, 053, 192,014 
4 9956 :141, 04 0, 192, 07 6, 064,195,232 
4 9962 :173, 036, 192,010, 010, 010,217 
4 9968 : 010, 141, 059, 192, 169, 001,108 
4 9974 :141, 053, 192, 177, 253, 041, 14 3 
4 9980 : 015, 07 6, 028,195, 173, 060,095 
4 9986 :192, 133,253, 173, 061, 192, 04 6 
4 9992 :133,254,096, 165,253, 141,090 
4 9998 : 070,192, 165,254,141, 071,203 
50004 :192, 173, 051, 192, 141,066, 131 
50010 :192, 173, 052,192, 141, 067,139 
50016 :192, 014,066,192, 04 6, 067, 161 
50022 :192,014,066,192,046,067,167 
50028 :192, 014,066, 192,04 6, 067, 173 
50034 :192, 169, 032,024,109, 067, 195 
5004 0 :192, 141, 067, 192, 133,254,07 5 
5004 6 :173,066, 192, 133, 253, 160,07 9 
50052 : 000, 162, 008, 14 0,063, 192, 185 
50058 :140,064,192, 14 0,065, 192,163 
500 64 :169,004,141, 068, 192,177,127 
50070 :253, 141, 069, 192,041, 192,014 
5007 6 :201, 192,208,006,238,064,041 
50082 :192, 07 6, 183, 195,201, 128,113 
50088 : 208, 00 6,238,065, 192,07 6, 185 
50094 :183, 195,201,064,208,003, 004 
50100 : 238,063, 192,014, 069, 192,180 
50106 :014,069, 192, 173, 069, 192,127 
50112 :206,068,192,208,213,200,255 
50118 :202,208,199,169,001,141,094 
50124 : 053,192, 173,063, 192,205,058 
50130 :065,192, 14 4,008, 169, 002,022 
50136 :141, 053, 192,173, 065, 192,008 
50142 : 205, 064,192, 14 4,016, 169, 244 
5014 8 : 003, 141, 053, 192,17 3, 070,092 
50154 :192, 133,253, 173, 071, 192,224 
50160 :133,254,096, 024,173,052,204 
50166 :192,105,004, 133,254,173, 083 
50172 : 051,192, 133, 253,096,000,209 
50178 : 000, 000,000, 000, 000, 085, 087 
50184 : 085, 084,085, 08 5,084,085,004 
50190 : 085, 084,085, 085,084,085,010 
50196 : 085, 084,085, 085, 084,085,016 
50202 : 085, 084,08 5,08 5, 084,085, 022 
50208 : 085, 084,085, 08 5, 084,085, 028 
50214 : 08 5, 084,08 5, 085, 084,085, 034 
50220 :085, 084,085, 085, 084,085, 04 0 
50226 : 085, 084,085,085, 084,085,04 6 
50232 : 085,084,000, 000, 000,000,225 
50238 : 000,000,000, 000, 000,000,062 
50244 : 000,000,000, 000, 000,000,068 
50250 : 000,020,000, 000, 085,000, 17 9 
50256 : 001,085,064,001,085,064,124 
50262 : 005,08 5,080, 00 5, 085,080,170 
50268 : 005,085,080, 005, 085,080,17 6 
50274 : 001,085, 064,001, 085,064,14 2 
50280 : 000, 08 5,000, 000, 020,000,209 
50286 : 000,000,000, 000, 000,000,110 
502 92 : 000,000,000, 000,000,000,116 
50298 : 000, 000,000, 000, 000,000, 122 
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50304 : 000,000, 000, 000, 000, 000, 128 
50310 : 000,000,000, 000, 000, 000, 134 
50316 : 000, 000,000, 000, 001, 085,226 
50322 : 064,001,085, 064,001, 085, 190 
50328 : 064,001,085, 064,001, 085, 196 
50334 : 064,001,085, 064,001, 085,202 
5034 0 : 064,001, 085, 064,001, 085,208 
5034 6 : 064,000,000, 000, 000, 000,234 
50352 : 000, 000,000, 000, 000, 000, 17 6 
50358 : 000,000, 000, 000, 000, 000, 182 
50364 : 000,000, 000, 000, 000,255, 187 
50370 : 255,255, 192, 000, 003, 192, 067 
5037 6 : 000,003, 192,000,003, 192,07 8 
50382 : 000, 003, 192, 000,003, 192,084 
50388 : 000, 003, 192,000,003, 192, 090 
50394 : 000, 003, 192,000,003, 192,096 
504 00 : 000, 003, 192,000,003, 192, 102 
504 06 : 000, 003, 192,000,003, 192,108 
50412 : 000, 003, 192,000, 003, 192,114 
50418 : 000, 003, 192,000, 003, 192,120 
504 24 : 000, 003, 192,000,003, 255,18 9 
504 30 : 255, 255, 000,001, 085, 064,14 6 
50436 : 001, 085, 064,001,08 5,064,04 8 
504 42 : 001, 085, 064,001,085, 064,054 
50448 : 001,085,064,001,08 5,064,060 
504 54 : 001,085,064,001,085,064,066 
504 60 : 001, 085, 064,001,085, 064,072 
504 66 : 001,085,064,001,085,064,078 
504 72 : 001, 085, 064,001, 085,064,084 
504 78 : 001, 085, 064,001,085, 064,090 
504 84 : 001,085, 064,001, 085, 064,096 
504 90 : 001,085,064,001, 085,064, 102 
504 96 : 000, 000, 000,000,000, 000,064 
50502 : 000,000, 000, 000, 000, 000, 070 
50508 : 000, 000, 000, 000, 000, 000, 07 6 
50514 : 000,085, 085, 085, 085, 085,251 
50520 : 08 5, 085, 085, 085, 085, 085,08 6 
50526 : 085, 085,085, 085, 085, 085,092 
50532 : 08 5, 085,085, 085, 085,085,098 
50538 : 085, 08 5, 085,08 5, 000, 000, 190 
5054 4 : 000,000, 000,000,000,000, 112 
50550 : 000,000, 000, 000, 000, 000, 118 
50556 : 000,000, 000, 000, 000, 064,188 
50562 : 000, 000,080, 000, 000, 084,038 
50568 : 000,000,085, 000, 000, 085, 050 
50574 : 064,000,085, 080, 000,085,200 
50580 : 084,000,085, 085, 000,085, 231 
50586 : 085, 064,085, 085,080,085, 126 
50592 : 085, 084,085,085,080, 085,152 
50598 : 085,064,085, 085, 000,085,058 
50604 : 08 4,000, 085, 080, 000,085,250 
50610 : 064,000, 085, 000,000,084,155 
50616 : 000, 000, 080, 000,000,064,072 
50622 : 000, 000, 000,000,000,001, 191 
50628 : 000, 000, 005, 000,000, 021, 222 
50634 : 000, 000, 085,000,001, 085, 117 
50640 : 000,005,085, 000,021, 085, 14 8 
5064 6 : 000, 085, 085, 001,085, 085, 043 
50652 : 005, 085, 085, 021, 085, 085, 07 4 
50658 : 005, 085, 085, 001, 085, 08 5, 060 
50664 : 000, 085, 085,000,021, 085,252 
50670 : 000, 005, 085, 000,001, 085, 158 
5067 6 : 000,000, 085, 000,000, 021,094 
50682 : 000,000, 005, 000,000, 001,000 
50688 : 000, 14 6, 073, 036, 000, 000,255 
50694 : 001, 128, 000, 000,000,000, 135 
507 00 : 001, 12 8, 000, 000,000,000,141 
50706 : 001, 12 8,000,000, 000,000, 14 7 
50712 :001, 034,2 4 2,008,050,130,233 
50718 : 008, 042,22 6, 072, 038, 130,034 
50724 : 072, 034,241, 17 6,000, 000,04 7 
50730 : 001, 128,000, 000, 000, 000, 171 
50736 : 001,128,000,000, 000, 000, 17 7 
507 42 : 001, 128,000,000, 000, 000, 183 
507 4 8 : 001, 14 6, 073, 036, 000, 14 6, 20 6 
507 54 : 07 3, 036, 000,000, 001, 128,04 8 
507 60 : 000,000, 000, 000, 001, 128,201 
507 66 : 000,000, 000, 000, 001, 128,207 


50772 : 000, 000, 000,000,001,030, 115 
50778 : 068,224,016, 100, 14 4,028, 158 
507 84 : 084,144,016,07 6, 14 4,030, 07 8 
507 90 :068, 224,000,000,001,128,011 

507 96 : 000, 000,000, 000,001, 128,237 
50802 : 000, 000, 000, 000,001, 128,243 
50808 : 000, 000,000,000,001, 14 6, 011 
50814 : 07 3,036, 000,000,000,000,235 
50820 : 000, 021, 000, 000,08 5,064,04 6 
50826 : 001,08 5, 080,001,085,080,214 
50832 : 005,085, 084,005,085, 084,236 
50838 : 021,085, 085, 021,08 5, 085,020 
5084 4 :021,085, 085, 021,085, 085, 02 6 
50850 : 021, 085, 085, 005,08 5, 084,015 
50856 : 005, 085,084,001,085, 080,252 

508 62 :001,085,080, 000,085, 064,233 
508 68 : 000, 021,000,000,000, 000,201 
50874 : 000, 000, 000, 000,000, 000, 186 
50880 :000, 000, 000, 000,000, 000, 192 
50886 : 000, 000,000, 000,000, 000, 198 
50892 : 000,000,000, 000,000, 000,204 
50898 : 000,000, 000, 000,012, 000,222 
50904 : 000,003, 000, 192,000,255, 154 
50910 :24 0,003, 000, 192, 012, 000,157 
50916 : 000, 000, 000, 000,000, 000,228 
50922 : 000, 000, 000,000,000, 000,234 
50928 : 000, 000, 000, 000,000, 000,24 0 
50934 : 000, 000,000,000,000, 000,24 6 
50940 : 000, 000,000,000, 160,000, 156 
5094 6 :174,250,207, 173,251,207,24 0 
50952 :133,251,173,252,207, 133, 133 
50958 :252, 173,253, 20*7,133,253, 005 
50964 :173,254,207, 133,254,177, 194 
50970 :251, 14 5,253, 200,202,208,005 
50976 : 24 8,096,255, 000, 173,000,036 
50982 :220,141,035, 199, 041, 016, 178 
50988 :141,034,199, 173, 035, 199,057 
50994 : 041,015, 141,035, 199, 169, 138 
51000 : 015,056,237, 035, 199, 141,227 
51006 : 035, 199, 096,000, 255, 17 3,052 
51012 : 037, 192,010, 141,066, 199,201 
51018 : 201, 000,208,003,238, 066, 022 
51024 :199, 032,036,199, 032, 160,226 
51030 : 200, 173,034,199,201, 000, 125 
51036 : 208,001,096, 174,035, 199,037 
51042 : 224,000, 24 0,221, 22 4,001,24 0 
51048 : 208, 012, 160,001,177,251, 14 5 
51054 : 056,233, 001, 14 5,251,07 6, 104 
51060 :112,200,22 4,002,208,012,106 
510 66 :160,001, 17 7,251,02 4,105, 072 
51072 : 001,14 5,251,07 6, 112,200, 14 5 
51078 : 22 4,007, 17 6, 112, 173,016,07 4 
51084 : 208,04 5, 066, 199, 24 0,020, 150 
510 90 :160,000, 177,251,201,000, 167 
51096 : 208,012, 169,255, 056, 237,065 
51102 : 066, 199, 04 5, 016,208,141,065 
51108 : 016,208,224,004,208,018,07 4 
51114 :160,000, 177,251, 141, 065,196 
51120 :199,206,065, 199, 17 3, 065, 059 
51126 :199, 14 5,251, 07 6, 112, 200,141 
51132 : 224,005, 208,027,160,000,04 4 
51138 :177,251, 141,065, 199, 206,209 
5114 4 :065, 199, 173, 065, 199, 14 5,022 
51150 : 251, 160,001, 177,251, 056,078 
51156 : 233,001,14 5,251,07 6,112,006 
51162 : 200, 224,006,208, 027, 160, 019 
51168 :001, 177,251, 02 4,105, 001, 015 
51174 :14 5,251, 160, 000, 177,251,190 
51180 :141, 065, 199,20 6, 065, 199,087 
51186 :173, 065, 199, 14 5, 251,07 6, 127 
51192 :112,200,173,016, 208,045,234 
51198 : 066, 199,24 0,016, 160,000, 167 
51204 :177,251,201, 061,208,025,159 
51210 : 056,233, 001, 14 5,251,07 6,004 
51216 : 035,200, 160, 000,17 7,251,071 
51222 : 201,255,208,009, 173,016, 116 
51228 : 208,013,066, 199, 141,016, 159 
51234 : 208,224,008, 208,018, 160,092 
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51240 : 000, 177,251, 141,065, 199, 105 
5124 6 : 238,065,199, 173,065,199,217 
51252 :145,251,07 6,112,200,224,036 
51258 : 009,208,027, 160,000, 177, 127 
51264 : 251, 141, 065, 199,238,065,255 
51270 :199, 173, 065, 199,14 5,251,07 8 
5127 6 :160, 001, 177,251, 056,233, 18 6 
51282 : 001, 14 5,251, 07 6, 112,200,099 
51288 :160, 000, 177,251, 141,065, 114 
51294 :199,238, 065, 199,173,065,00 9 
51300 :199, 14 5, 251, 160,001, 177,009 
51306 : 251, 024, 105,001,145,251, 115 
51312 :160, 000, 177,251,201, 027, 160 
51318 :17 6, 015,173, 016,208,045,239 
51324 :066,199,208,007,177,251,008 
51330 : 024,105, 001, 145,251, 160, 048 
51336 : 001, 17 7,251,201,058,17 6,232 
51342 : 006, 02 4,105, 001,14 5,251, 162 
51348 : 096,201,239, 176,001, 096, 189 
51354 : 056,233, 001, 145,251,096, 168 
51360 : 032,228,255,201,000,208,060 
51366 : 001,096,201,017,208,006,183 
51372 :169, 001, 141, 035, 199, 096, 045 
51378 : 201, 14 5,208,006, 169, 002, 141 
51384 :141, 035, 199,096,201, 157,24 5 
51390 : 208,006, 169,004, 141, 035,241 
51396 :199,096, 201,029,208,006, 167 
514 02 :169, 008,141,035, 199, 096, 082 
51408 : 201, 032,24 0, 001,096, 169, 17 9 
51414 : 000, 141,034,199, 096, 120, 036 
514 20 :169, 127,141, 013,220, 169, 035 
514 26 : 001,141, 026,208,169,002,005 
51432 :133,253,173,075,201, 141,184 
51438 : 018,208,169, 059, 141, 017,082 
514 4 4 : 208, 173, 020,003, 141, 073,094 
514 50 : 201, 173, 021,003, 141, 07 4,095 
514 56 : 201,169, 013, 141,020, 003,035 
514 62 :169, 201, 141,021,003, 088, 117 
514 68 : 096, 173, 025,208, 141, 025, 168 
51474 :208,041,001,240,043,198,237 
514 80 : 253, 016, 004,169, 001, 133,088 
514 86 : 253, 166, 253, 189, 081,201, 14 9 
514 92 :141, 024,208,189, 077,201, 108 
514 98 :141,017,208, 18 9, 07 9,201, 109 
51504 :141,022,208,189, 083,201, 124 
51510 :141, 033,208,189, 075,201, 133 
51516 :141,018, 208, 138,24 0, 006, 04 3 
51522 :104, 168, 104,170, 104,064,012 
51528 : 07 6, 064,201,04 9,057,059, 066 
51534 : 027,024,008,024,020,003, 184 
51540 : 014,204,204, 000,000,001,251 
5154 6 : 000,128,000, 000,129, 193, 028 
51552 : 000,002,033,000, 130,032,037 
51558 : 000, 130, 001, 000,001,001,235 
51564 : 000, 128,128,000, 128,065,04 5 
51570 -.000,000,033, 000, 130,032,053 
5157 6 : 000, 130,033, 000, 001, 193,221 
51582 : 000, 128,000, 000, 128,001, 127 
51588 : 000, 102, 102, 000, 000,000, 080 
51594 : 000, 000, 000, 000, 000, 000, 138 
51600 : 000, 000,000, 000, 000,204, 092 
51606 : 204,000, 000,001,000, 128,227 
51612 : 001, 000, 130, 000,000, 002, 033 
51618 : 001, 000,130, 001,000, 130, 168 
51624 : 000, 000, 002,001,000, 130, 04 5 
51630 : 001,000, 130,000,000, 002, 051 
51636 : 001,000,130,033,000, 130,218 
51642 : 032, 000, 003,225,000, 128, 062 
5164 8 : 001,000, 128,000,000, 102, 167 
51654 :102,000, 000, 000, 000, 000,04 4 
51660 : 000, 000, 000, 000,000,000,204 
51666 : 000,000, 000, 173, 018,208,097 
51672 : 201,059, 14 4,24 9, 120, 169, 134 
51678 : 000, 141, 026, 208,169,255,253 
51684 :141,013,220, 173, 073,201,025 
51690 :141, 020, 003, 173,07 4,201,078 
51696 :141, 021, 003, 088,096,07 6, 153 
51702 : 024,202, 000,022,064,04 8, 094 


51708 :216, 169,000, 141,24 5,201,200 
51714 :162,002,032,201,255,144,030 
51720 : 003,07 6,201,203,032,183,194 
51726 : 255,24 0,003, 07 6, 201,203,224 
51732 :169, 020,141,24 6,201, 169, 198 
51738 : 040, 133, 251, 169, 004,133,24 4 
5174 4 : 252,032, 163,202, 169, 020,102 
51750 :141,24 6,201,169, 04 0,133,200 
51756 : 251,169,216,133,252,032,073 
517 62 :163,202, 169,020, 141,24 6,223 
517 68 : 201, 169, 064,133,251,169, 019 
51774 : 033, 133, 252, 160, 000, 177,04 9 

517 80 : 251, 141, 251,201, 032,210, 130 
51786 : 255, 032, 183,255,24 0, 003,018 
51792 : 07 6,201, 203,173,251,201, 161 
51798 : 240, 014,200,208,232, 032,24 4 
51804 : 211,202,20 6,24 6,201,208,086 
51810 : 224,07 6, 204,203, 177,251,209 
51816 : 208, 014,200,208,24 9,032,247 
51822 : 211,202,206,246,201,208,104 
51828 : 241,07 6,204,203, 141,251,208 
51834 : 201,152, 02 4,101,251,141,224 
51840 : 249,201, 165,252, 105,000,07 6 
51846 :141,250,201, 173,249,201, 069 
51852 : 032,210,255, 173,250,201,237 
51858 : 032, 210,255, 173,251,201,24 4 
51864 :032,210,255,032,183,255,095 
51870 :240, 184,07 6,201,203, 160, 198 
51876 :031, 177,251, 032,210,255,096 
51882 :14 4,003,076,201,203,032,061 
51888 :183,255,24 0, 003, 07 6,201, 110 

518 94 :203, 136, 016,235,206,24 6,200 
51900 :201, 173,24 6,201,208,001, 194 
51906 : 096, 02 4,165,251, 105, 04 0, 107 
51912 :133,251, 165,252, 105,000,082 
51918 :133,252, 07 6, 163,202, 024,032 
51924 :165, 251, 105,064,133,251, 157 
51930 :165,252, 105,001, 133,252, 102 
51936 :096,216,169,000,141,245,067 
51942 : 201, 162,002, 032, 198,255,056 
51948 :14 4,003, 07 6,201,203,032, 127 
51954 :183, 255,240,003,07 6,201, 17 6 
51960 : 203, 169, 020, 141,24 6,201,204 
51966 :169,04 0,133,251, 169,004,252 
51972 :133,252,032, 14 2,203,169,167 
51978 : 020, 141,24 6,201, 169,04 0,059 
51984 :133,251, 169,216, 133,252, 14 6 
51990 : 032,142,203, 169,020, 141,217 
51996 : 246,201, 169, 064, 133, 251,068 
52002 :169,033, 133,252, 160,000,013 
52008 : 032,207,255,141,251,201,103 
52014 : 032, 183,255,24 0,010,201,199 
52020 : 064,208,003,07 6, 188,203,026 
52026 : 07 6,201,203,173,251,201,139 
52032 :145,251,24 0, 014,200,208,098 
52038 : 225,032,211, 202,20 6,24 6, 168 
5204 4 : 201,208,217, 07 6,204,203,161 
52050 : 032, 207,255, 141,247,201, 141 
52056 : 032, 207,255, 141, 24 8,201, 14 8 
52062 : 024,152,101,251, 141,24 9,24 4 
52068 : 201, 165,252, 105, 000, 141,196 
52074 : 250,201, 173,24 7,201, 205, 103 
52080 : 249, 201,208, 008, 173, 24 8,175 
52086 : 201, 205, 250,201, 24 0, 172,107 
52092 :169, 000, 14 5,251,200,208,073 
52098 :219, 032,211,202,206,24 6,222 
52104 : 201,208,211,076,204,203,215 
52110 :160,031, 032,207,255, 141,200 
52116 : 251,201,032, 183, 255, 24 0, 030 
52122 : 003, 07 6,201,203, 173,251, 037 
52128 :201, 14 5, 251, 136, 016,234,119 
52134 : 206,24 6, 201,208, 001, 096, 100 
52140 : 024,165,251,105, 04 0, 133,122 
5214 6 : 251, 165,252,105, 000, 133, 060 
52152 :252, 07 6, 14 2,203, 169, 063, 065 
52158 :141,24 7, 201, 169, 064,141, 129 
52164 :248,201, 07 6,094,203, 141, 135 
52170 :245,201, 096,255,255,255,229 
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Piccola guida per 
l'input 

dei programmi 


I programmi in BASIC listati su SUPER- 
COMMODORE contengono una particola¬ 
re codifica dei caratteri di controllo (cursore, 
colore, reverse, eccetera) che permette di ot¬ 
tenere una maggiore leggibilità dei pro¬ 
grammi. 

Generalmente, questi listati contengono alcu¬ 
ni caratteri racchiusi tra parentesi graffe { }; 
queste ultime, che non esistono sulla tastiera 
del computer, non devono essere digitate, 
ma hanno unicamente lo scopo di indicare 
che i caratteri da esse racchiusi sono dei ca¬ 
ratteri di controllo. 

Ad esempio, {GIU'} indica che occorre pre¬ 
mere una volta il tasto di cursore verso il bas¬ 
so, {3 GIU’} indica che il tasto di cursore ver¬ 
so il basso dovrà essere premuto tre volte. 

Se tra le parentesi graffe è racchiuso un sin¬ 
golo carattere, quest'ultimo deve essere pre¬ 
muto insieme al tasto CTRL (ad esempio, in¬ 
contrando {A} si dovrà premere il tasto CTRL 


insieme al tasto A). 

Invece i caratteri racchiusi tra parentesi qua¬ 
dre e simboli di maggiore e minore [< >] de¬ 
vono essere premuti unitamente al tasto 
Commodore (nell'angolo inferiore sinistro 
della tastiera). Ad esempio, [<A>] indica che 
deve essere premuto il tasto Commodore in¬ 
sieme al tasto A. 

Infine, alcuni caratteri racchiusi dalle parente¬ 
si graffe preceduti dalle lettere SH: ciò indica 
che il carattere seguente deve essere 
digitato tenendo premuto il tasto SHIFT. 

La tabella seguente riporta, per ogni caratte¬ 
re di controllo, la codifica utilizzata nei nostri 
listati. 

I listati in linguaggio macchina (totalmente nu¬ 
merici) non possono invece essere copiati di¬ 
rettamente con il computer, ma richiedono l'u¬ 
tilizzo dello speciale programma MLX, riporta¬ 
to, insieme alle istruzioni per il suo utilizzo, in 
altra parte della rivista. 


Quando leggete: 

Premete: Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

{CLR } 

rea m w.v'n 

G 

{CYN ) 

141:11 Q 

kt 

[<7>] 

30 

□ 

{HOME} 

(i( W!?-!"l 

0 

{PUR} 

Btl □ 

1 

( < 8 > ) 

30 

■ ■ 
■ ■ 

{SU) 

rm (iEZn 

□ 

{ GRN } 

t3n □ 

□ 

(FI) 

m 


{GIU' } 

IlIiiLlll 

E 

{BLU} 

Bll Q 

Q 

(F2) 

l*A 

ai 

{SIN) 


II 

{yel} 

BHI Q 


{F 3 ) 

uu 

■ 

{DES 1 


a 

1<1>I 

3 0 

□ 

{ F4 } 

(ZI 

is 

{ RVS ) 

E3 □ 

E 

(<2>) 

30 

15 

{F5} 

(fi 

il 

(OFF) 

EC1 □ 

■ 

l<3>) 

3 0 

& 

{ F6} 

rii 

ai 

{ BI.K } 

mi Q 

■ 

1<4>) 

30 

E 

ÌF7) 


li 

{ WHT ; 

m q 

S 

1 v. 5 > l 

30 
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Questo sofisticato editor di 
SPRITE consente di creare, mo¬ 
dificare ed animare gli SPRITE 
sul C64, oltre a mettere a dispo¬ 
sizione del BASIC nuovi coman¬ 
di e funzioni orientati all'uso de¬ 
gli SPRITE. Sono Inoltre com¬ 
presi nel programma comandi 
per la lettura delle porte Jo¬ 
ystick e per la creazione di ef¬ 
fetti sonori. 

Il BASIC 2.0 del C64 è un pessimo lin¬ 
guaggio per chi desidera scrivere pro¬ 
grammi che utilizzano gli SPRITE: oc¬ 
corre infatti una serie infinita di POKE 
alquanto complicate per creare, abilita¬ 
re e muovere uno SPRITE sullo scher¬ 
mo. SPRITE Manager è la soluzione 
ideale per questa limitazione, in quanto 
comprende un editor a pieno schermo 
per disegnare e creare gli SPRITE, oltre 
ad una serie di nuovi oomandi da utiliz¬ 
zare nei propri programmi per muovere 
ed animare gli SPRITE. 

GII SPRITE, I banchi, e I 
blocchi 

SPRITE Manager rende gli SPRITE mol¬ 
to più semplici da creare e manipolare, 
ma è necessario conoscere gli elemen¬ 
ti basilari della tecnica con cui funziona 
il sistema video del C64, prima di poter 
utilizzare in modo corretto quanto il pro¬ 
gramma mette a disposizione. 
Naturalmente non abbiamo qui lo spa¬ 
zio per effettuare una completa tratta¬ 
zione tecnica della gestione degli SPRI- 
TE nel C64: a chi desiderasse saperne 
di più consigliamo la lettura della serie 
di articoli "Uno sguardo alla grafica del 
C64" pubblicati sui numeri di Maggio, 
Giugno e Luglio dello scorso anno. 


Gli SPRITE sono immagini grafiche che 
possono essere manipolate in modo in¬ 
dipendente dal resto dello schermo vi¬ 
deo. Essi sono generati dal chip VIC (Vi¬ 
deo Interface Controller) che ne mette 
a disposizione otto; ogni SPRITE può 
essere visualizzato in modo standard 
oppure in modo multicolore. 

Gli SPRITE standard sono larghi 24 pi¬ 
xel e alti 21 pixel, ed ognuno di essi può 
avere un singolo ed indipendente colo¬ 
re di primo piano (gli SPRITE non hanno 


un vero e proprio colore di fondo; esso 
è infatti "trasparente" e permette di ve¬ 
dere quanto si trova sotto lo SPRITE). 

Gli SPRITE multicolore sono larghi 12 pi¬ 
xel ed alti 21 pixel, ma appaiono della 
stessa grandezza degli SPRITE stan¬ 
dard, in quanto in modo multicolore ogni 
pixel è largo il doppio del pixel stan¬ 
dard. 

Gli SPRITE multicolore sono dotati di 
tre colori di primo piano, in cui solo uno 
dei tre è indipendente per ogni SPRITE, 
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mentre gli altri due sono comuni a tutti 
gli altri sette SPRITE. 

Un'area di memoria di 64 byte detta 
"blocco" deve contenere i dati relativi al¬ 
la forma di ciascuno SPRITE. I primi 63 
byte di ciascun blocco ne contengono 
la definizione, ed il byte finale normal¬ 
mente non viene utilizzato (SPRITE Ma¬ 
nager invece lo utilizza per definire se 

10 SPRITE debba essere standard o 
multicolore). 

Ogni SPRITE è dotato di un "puntatore" 
alla fine della memoria di schermo, che 
indica quale blocco contiene i dati di for¬ 
ma delio SPRITE; una volta inseriti in 
memoria vari blocchi contenenti le varie 
forme, per cambiare la forma di uno 
SPRITE è sufficiente fare in modo che 

11 puntatore indichi un nuovo blocco. 

Una caratteristica del chip VIC che oc¬ 
corre conoscere per utilizzare SPRITE 
Manager è il concetto di "banchi video". 
Come dice il suo stesso nome, il C64 
possiede al suo interno 64 Kbyte di me¬ 
moria RAM. Il chip VIC può accedere 
tuttavia soltanto a 16 Kbyte di RAM alla 
volta: per ottenere la massima flessibili¬ 
tà, il chip VIC divide la memoria del C64 
in quattro diversi banchi da 16 Kbyte 
ciascuno. Questi banchi sono appunto 
detti banchi video. 

Il banco selezionato dal chip VIC deve 
contenere tutte le informazioni ed i dati 
dei caratteri e SPRITE che devono es¬ 
sere visualizzati sullo schermo, oltre al¬ 
la stessa memoria di schermo. 

I 16384 byte disponibili in ogni banco 
permettono di inserire fino a 256 diver¬ 
se forme di SPRITE di 64 byte, che so¬ 
no numerate da 0 a 255. 

Uno dei maggiori problemi per il program¬ 
matore degli SPRITE è trovare la zona 
di memoria in cui inserire i dati di defini¬ 
zione delle forme: non è possibile infatti 
utilizzare la memoria video o la memo¬ 
ria caratteri, ed occorre evitare conflitti 
e sovrascritture con il programma BA¬ 
SIC presente in memoria e le sue varia¬ 
bili. 

Nel banco assunto come default dal 
chip VIC (banco 0), b spazio disponibi¬ 
le è motto limitato; il BASIC e il sistema 
operativo utilizzano gran parte della me¬ 
moria nelle locazioni 0-1023 (blocchi 0- 
15), mentre il blocco 11 (locazioni 704- 
767) è libero, ed è possibile utilizzare i 
blocchi 13-15 (locazioni 832-1023 nel 
buffer del registratore) se il vostro pro¬ 
gramma non utilizza accessi al nastro. 

La memoria di schermo occupa normal¬ 
mente le bcazioni 1024-2047, quindi i 
blocchi 16-31 non sono disponibili. Per 
come è stato progettato, il chip VIC ve¬ 
de un'immagine dei caratteri in ROM nel¬ 
le locazioni 4096-12287 (blocchi 64- 
127 nel banco 0); anche questi blocchi 
non possono essere utilizzati per gli 
SPRITE. 

Anche altre aree in diversi banchi di me¬ 
moria non sono disponibili: i blocchi 64- 


127 nel banco 2 (bcazioni 36864- 
40959) non possono essere utilizzati 
poiché anche in questa zona il chip 
VIC vede un'immagine dei caratteri 
ROM, ed i blocchi 0-63 del banco 3 (b- 
cazioni 49152-53248) non possono es¬ 
sere utilizzati in quanto vi risiede il codi¬ 
ce macchina di SPRITE Manager 
stesso. 

Se immagazzinate le forme degli SPRI- 
TE nella RAM utilizzata dal programma 
BASIC e dalle sue variabili, occorre pre¬ 
stare attenzione a che esse non entri¬ 
no in conflitto con il programma stesso: 
occorre riservare parte della RAM del 
BASIC modifbando il vabre del puntato¬ 
re in bcazione 56 ed eseguendo un 
CLR. 

Il vabre nella locazione 56 è il byte atto 
dell'indirizzo della prima bcazione al di 
sotto della memoria occupata dal pro¬ 
gramma BASIC. Tale puntatore contie¬ 
ne normalmente il vabre 160: ciò signifi¬ 
ca che lo spazio di lavoro del BASIC si 
estende fino alla bcazione 40960 
(160*256). 

Per esempio, se il vostro programma 
BASIC non è troppo lungo, potete ag¬ 
giungere una prima linea con le istruzta- 
ni POKE 56,48:CLR per riservare i bloc¬ 
chi 192-255 nel banco video 0 (locazio¬ 
ni 12288-16383). Ciò riduce l'ammonta¬ 
re di memoria disponibile per il vostro 
programma e le sue variabili a 10239 
byte. 

SPRITE Manager vi permette di imma¬ 
gazzinare le definizbni degli SPRITE 
anche nella RAM "sotto" la ROM se uti¬ 
lizzate il banco video 2 o 3, nel qual ca¬ 
so non dovete preoccuparvi di proteg¬ 
gere dal BASIC le vostre definizioni de¬ 
gli SPRITE. 

Disegnare gli SPRITE 

L'editor di SPRITE Manager viene atti¬ 
vato con il comando DESIGN. Questo 
comando ha due diverse forme, a se¬ 
conda che si desideri disegnare uno 
SPRITE standard o muttbotare. 

Per uno SPRITE standard, utilizzate la 
sintassi: 

DESIGN blocco, colore 

Mentre per disegnare uno SPRITE mutti- 
cobre occorre utilizzare due parametri 
aggiuntivi: 

DESIGN blocco, colore, multi 1, 
multl2 

In entrambi i casi il vabre bbcco (0- 
255) stabilisce quale dei 256 blocchi di¬ 
sponibili di 64 byte nel corrente banco 
video deve essere utilizzato per imma¬ 
gazzinare la definizione delta SPRITE. 
Si presti particolare attenzione al peri¬ 
colo che il bbcco selezbnato entri in 
conflitto con il programma BASIC o con 


altre importanti informazioni. 

Per esempio, se avete in memoria un 
programma quando attivate l’editor, po¬ 
treste distruggere una parte del pro¬ 
gramma stesso se selezionate dei bloc¬ 
chi che usano le stesse locazioni di me¬ 
moria. 

Si noti che il comando DESIGN non per¬ 
mette di definire il banco video. Il banco 
in cui si selezionano i blocchi è infatti il 
banco corrente ed attivo nel momento 
in cui si usa il comando DESIGN. 
Normalmente, il C64 è configurato sul 
banco 0; il banco può essere modifica¬ 
to con il comando SCREEN (vedi più 
avanti). 

Il parametro colore specifica il colore 
di primo piano di uno SPRITE standard, 
oppure il colore indipendente di primo 
piano di uno SPRITE multicolore. 

Il vabre del parametro colore deve es¬ 
sere uno codice colore standard del 
C64, da 0 a 15. Tali selezbni di colore 
si applbano solo nel momento in cui b 
SPRITE viene disegnato, e non hanno 
effetto sui colori con i quali lo SPRITE 
stesso verrà visualizzato dal program¬ 
ma BASIC. 

I due parametri multll e multl2 per 
gli SPRITE muttbotare ne specificano i 
due colori di primo piano in comune. An¬ 
che questi valori possono oscillare da 0 
a 15. 

Dal momento che l'editor mette a dispo¬ 
sizione un cursore bianco su fondo ne¬ 
ro, è opportuno evitare di utilizzare il 
bianco e il nero come designazbni di co- 
bre degli SPRITE. 

Dal momento che i due colori ausiliari 
multll e multl2 devono essere ugua¬ 
li per tutti gli SPRITE muttbobre, è op¬ 
portuno inserire gli stessi vabri per tutti 
gli SPRITE che dovranno essere visua¬ 
lizzati contemporaneamente. 

Attivando l'editor, l'area di disegno nel¬ 
la parte sinistra dello schermo mostrerà 
la forma delta SPRITE attualmente im¬ 
magazzinata in quel banco di memoria. 
Un asterisco (*) mostra quale pixel del¬ 
lo SPRITE è soggetto all'editing. Se 
nessuno SPRITE è stato precedente- 
mente disegnato o inserito in quel bloc¬ 
co, l'editor visualizzerà il contenuto ca¬ 
suale della memoria: premete SHIFT e 
CLFl/HOME per pulire l'area di disegno. 
Utilizzate il tasto F3 per tracciare nel 
colore di primo piano (SPRITE stan¬ 
dard) o nel colore indipendente di primo 
piano (SPRITE multbobre). Soltanto 
per gli SPRITE muttbobre, utilizzate il 
tasto F5 per tracciare nel primo colore 
comune di primo piano ( multll ), ed il 
tasto F7 per tracciare nel secondo colo¬ 
re comune di primo piano ( multl2 ). 

I tasti cursore possono essere utilizza¬ 
ti per muovere l'asterisco entro l'area di 
disegno, senza operare modifiche sulb 
SPRITE. 

II tasto CLR/HOME porta l'asterisco nel¬ 
l'angolo superbre sinistro dell'area di 
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disegno, mentre INST/DEL provoca la 
cancellazione del pixel a sinistra dell'a¬ 
sterisco. Ricordate infine che SHIFT e 
CLR/HOME cancellano l'intero SPRITE 
dall'area di disegno. 

Mentre create il disegno dello SPRITE, 
quattro SPRITE sono visualizzati a de¬ 
stra dell'area di disegno: essi rappre¬ 
sentano lo SPRITE soggetto a editing 
in dimensioni normali, espanse orizzon¬ 
talmente, espanse verticalmente, ed 
espanse in entrambe le direzioni. 

Per uscire dall'editor e ritornare al BA¬ 
SIC, premete il tasto RUN/STOP (non 
RUN/STOP e RESTORE!). La defi¬ 
nizione dello SPRITE appena creato sa¬ 
rà immagazzinata in memoria nel bloc¬ 
co specificato: lo SPRITE non sarà vi¬ 
sualizzato sullo schermo fino a che non 
userete il comando ENABLE (vedi più 
avanti) per abilitarlo. 

I comandi di SPRITE Manager 

I nuovi comandi aggiunti da SPRITE Ma¬ 
nager al BASIC del vostro C64 si com¬ 
portano esattamente come i soliti co¬ 
mandi, con una sola eccezione: quan¬ 
do una delle nuove istruzioni vene inse¬ 
rita dopo un THEN, deve essere prece¬ 
duta dai due punti. Ad esempio IF A>10 
THEN:OFF. 

Se utilizzate parametri al di fuori degli in¬ 
tervalli consentiti otterrete degli "ILLE- 
GAL QUANTITY ERROR", mentre se 
non inserite i parametri quando essi so¬ 
no invece richiesti otterrete un 
"SYNTAX ERROR". Lo stesso errore sa¬ 
rà ottenuto se si cercherà di eseguire 
un programma BASIC contenente i co¬ 
mandi di SPRITE Manager senza aver 
prima caricato ed attivato quest'ultimo. 
Ecco un elenco dei nuovi comandi mes¬ 
si a disposizione da SPRITE Manager: 

ALLOFF 

Disabilita tutti gli SPRITE. 

ANIM numero, Iffy per fotogram¬ 
ma, blocco Iniziale, blocco 
finale 

Anima lo SPRITE specificato dal valore 
di numero (0-7). L’animazione viene 
ottenuta modificando sequenzialmente 
la forma dello SPRITE tra una serie di 
immagini (fotogrammi) predefinite. Cia¬ 
scuno degli otto SPRITE può essere 
animato separatamente, e diversi SPRI- 
TE possono utilizzare lo stesso blocco 
di definizione. 

II parametro Jlffy per fotogramma 
(0-255) determina la velocità dell'anima¬ 
zione: questo valore specifica infatti 
quanto a lungo (in cicli di 1/60 di secon¬ 
do dello "jiffy clock" interno al C64) de¬ 
ve essere visualizzata ogni forma o fo¬ 
togramma costituente l'animazione. Un 
valore, ad esempio, di 15 farà cambiare 
il fotogramma ogni 15/60 di secondo, 
ovvero ogni 1/4 di secondo. 


I parametri blocco Iniziale e bloc¬ 
co finale determinano quali blocchi 
saranno usati per creare l'animazione. 
Questi parametri possono variare da 0 
a 255, ed il valore di blocco finale 
deve essere maggiore del valore di 
blocco Iniziale . Evitate di utilizza¬ 
re il vabre 255 come valore di blocco fi¬ 
nale (in questo caso infatti la sequenza 
non si fermerebbe, e riprenderebbe dal 
blocco 0 passando in ciclo tutti i 256 
blocchi). 

La sequenza è ripetitiva in modo auto¬ 
matico: quando viene raggiunto il valo¬ 
re di blocco finale , l'animazione ri¬ 
prende dal valore di blocco Iniziale ; 
ANIM numero e senza altri parametri 
provoca l'interruzione dell'animazione. 
Occorre prestare attenzione che tutte 
le forme nella zona di bbcchi specifica¬ 
ta siano dello stesso tipo e leggermen¬ 
te differenti le une dalle altre (come in 
una sequenza di cartoni animati o di fo¬ 
togrammi in un film), altrimenti non si ot¬ 
terrà che un disordinato movimento. 

Tutte le forme costituenti l'animazbne 
devono inoltre essere omogenee tra lo¬ 
ro (tutte standard oppure tutte multbo- 
lore). Il tipo (standard o multicolore) se¬ 
lezionato per b SPRITE prima dell'ani¬ 
mazione, determina il tipo utilizzato dal¬ 
l'animazione stessa 

Un buon metodo per creare le animazio¬ 
ni consiste nel creare la forma di uno 
SPRITE, quindi copiarla con il comando 
COPY (vedi più avanti) nei bbcchi se¬ 
guenti, infine operare delle lievi modifi¬ 
che sulle forme immagazzinate in tali 
bbcchi attraverso DESIGN. 

CHANGE numero, blocco 

Cambia il bbcco utilizzato per la defini- 
zbne di uno SPRITE. CHANGE ha un ef¬ 
fetto visibile soltanto se lo SPRITE è 
stato preventivamente abilitato. Il para¬ 
metro numero selezbna b SPRITE (0- 
7), ed il parametro blocco (0-255) se¬ 
leziona il nuovo blocco da cui b SPRI- 
TE dovrà trarre le informazioni di 
forma. 

Per esempio CHANGE 3,14 fa in modo 
che lo SPRITE 3 venga definito dalla for¬ 
ma immagazzinata nel blocco 14. Si no¬ 
ti che CHANGE può far cambiare uno 
SPRITE da standard a multicolore e vi¬ 
ceversa, a seconda del tipo di forma im¬ 
magazzinata nel bbcco selezbnato. 

CHARS banco,posizione 

Copia il set di caratteri maiuscob/grafi- 
co dalla ROM alla RAM. Il set di caratte¬ 
ri consiste in 256 definizioni di caratte¬ 
re ciascuna di 8 byte, e deve iniziare in 
una locazione di confine pari, e di 2 
Kbyte. Esistono pertanto otto diverse 
posizbni per il set di caratteri, nell'ambi¬ 
to dei 16 Kbyte indirizzatoli dal chip 
VIC. 

L'istruzbne CHARS permette di selezio¬ 
nare una di queste aree attraverso il pa- 


rametro posizione , 
guente tabella: 

secondo la 

posi- 

zlone 

byte 

blocchi 

0 

0-2047 

0-31 

2 

2048-4095 

32-63 • 

4 

4096-6143 

64-95 

6 

6144-819 

196-127 

8 

8192-10239 

128-159 

10 

10240-12287 

160-191 

12 

12288-14335 

192-223 

14 

14336-16383 

224-255 


I numeri indicati nella colonna "byte" so¬ 
no la distanza tra l'inizb del banco vi¬ 
deo e l’inizb e fine dei dati del set di ca¬ 
ratteri. Per esempb, il set di caratteri in 
posizione 6 nel banco 2 inizia alla lo¬ 
cazione 32768+6144=38912. 

Una volta che disponete di una copia in 
RAM del set di caratteri, potete modifi¬ 
care i singoli caratteri per ottenerne di 
personalizzati. Occorre notare tuttavia 
che il semplice fatto di copiare in RAM il 
set di caratteri non istruisce il chip VIC 
di leggere i caratteri dalla RAM anzbhè 
dalla ROM. 

Potete selezionare la posizione 4 
(posizione del set maiuscolo/grafico 
nei banchi 0 e 2) stampando un 
CHR$(142), oppure la posizione 6 
(posizione del set minuscob/maiuscob 
nei banchi 0 e 2) stampando un 
CHR$(14). 

Potete inoltre passare da uno all'altro di 
questi due set di caratteri premendo i ta¬ 
sti SHIFT e Commodore. 

Altre posizbni del set di caratteri devo¬ 
no essere comunbate al chip VIC con 
la seguente istruzione: 

POKE 53272,(PEEK(53272) AND 240) 
OR posizione 

dove posizione è uno dei valori mo¬ 
strati precedentemente. Si noti che non 
è possibile utilizzare set di caratteri in 
RAM nelle posizioni 4 e 6 dei banchi 0 o 
2: per progettazbne, il chip VIC vede 
sempre in tali posizioni l'immagine del 
set in ROM. 

COLOR numero,colore 
Cambia il colore di primo piano dello 
SPRITE definito da numero, oppure il 
suo colore indipendente di primo pia¬ 
no se b SPRITE è multicolore. 

COPY banco orlg., blocco orlg., 
banco desi, blocco dest. 

Copia la definizione di uno SPRITE in 
un altro bbcco: la definizione contenu¬ 
ta nel blocco origine non viene modifica¬ 
ta. Ad esempb: 

COPY 0,13,0,14 

copia la forma dello SPRITE nel blocco 
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13 nel blocco 14, entrambi nel banco vi¬ 
deo 0. 

DUMP banco, blocco 

Stampa istruzioni DATA che definisco¬ 
no la forma dello SPRITE nel blocco e 
banco specificato. Per esempio, 
DUMP 0,13 stampa i dati di forma conte¬ 
nuti nel blocco 13 del banco 0. 

Digitate i numeri di linea appropriati all’i¬ 
nizio di ciacuna linea DATA e premete 
RETURN: esse diverranno parte inte¬ 
grante del programma BASIC in memo¬ 
ria. Naturalmente, occorrerà aggiunge¬ 
re al programma un'istruzione che le leg¬ 
ga e ne inserisca in memoria il conte¬ 
nuto. 

ENABLE numero, blocco, colo¬ 
re, x, y, velx, vely, dlmx, dìmy 
Abilita lo SPRITE specificato da nume¬ 
ro (0-7). La prima volta che si abilita 
uno SPRITE, occorre specificare alme¬ 
no i parametri numero, blocco, colo¬ 
re, x, y. In seguito sarà sufficiente uti¬ 
lizzare soltanto il parametro numero , 
mentre gli altri saranno opzionali. 

I parametri x, y, dlmx, dlmy devo¬ 
no - se specificati - essere specificati 
in coppia. 

L'abilitazione di uno SPRITE non neces¬ 
sariamente lo rende visibile sullo scher¬ 
mo: esso non sarà infatti visibile se: 

-la sua forma è nulla; 

- il suo colore di primo piano è uguale a 
quello di fondo dello schermo; 

- le sue coordinate di posizione sono 
esterne all'area di visibile (lo SPRITE è 
sotto il bordo dello schermo). 

II parametro x di posizionamento oriz¬ 
zontale dello SPRITE può assumere va¬ 
lori da 0 a 511, ma l’intero SPRITE srà 
visibile soltanto per valori compresi tra 
24 e 343. Analogamente, il parametro y 
può variare da o a 255, ma l’intero SPRI- 
TE sarà visibile soltanto con valori tra 
50 e 249. 

Tali coordinate definiscono la posizione 
sullo schermo dell'angolo superiore si¬ 
nistro dello SPRITE. 

I parametri velx (da -128 a 127) e 
vely (da -128 a 127) definiscono la ve¬ 
locità di movimento dello SPRITE nelle 
due direzioni orizzontale e verticale. Va¬ 
lori negativi muovono lo SPRITE verso 
sinistra o verso l'alto, viceversa per i 
valori positivi. 

Se lo SPRITE deve essere fermo, speci¬ 
ficate 0 per entrambi i parametri. Quan¬ 
do uno SPRITE ese dallo schermo, rien¬ 
tra dalla parte opposta. 

I parametri dlmx e dlmy controllano 
le dimensioni deito SPRITE in senso 
orizzontale ed in senso verticale: se 
posti a 0 lo SPRITE ha dimensioni stan¬ 
dard, se posti a 1 lo SPRITE avrà dimen¬ 
sione raddoppiata nella direzione desi¬ 
derata. 


Una volta che uno SPRITE sia stato abi¬ 
litato, il suo blocco, colore, posizione, 
moto e dimensioni possono essere mo¬ 
dificati usando i comandi CHANGE, CO¬ 
LOR. REL, MOVE e SIZE. 

MOVE numero, velx, vely 
Cambia le caratteristiche del moto dello 
SPRITE definito da numero, asse¬ 
gnando nuovi valori ai parametri velx 
e vely. 

I parametri velx (da -128 a 127) e 
vely (da -128 a 127) definiscono la 
velocità di movimento dello SPRITE nel¬ 
le due direzioni orizzontale e verticale. 
Valori negativi muovono lo SPRITE ver¬ 
so sinistra o verso l'alto, viceversa per 
i valori positivi. Se lo SPRITE deve es¬ 
sere fermo, specificate 0 per entrambi i 
parametri. Quando uno SPRITE ese dal¬ 
lo schermo, rientra dalla parte opposta. 

OFF numero 

Disabilita lo SPRITE specificato da nu¬ 
mero . Se in seguito esso viene riabili¬ 
tato con ENABLE numero , esso 
riapparirà fermo nella posizione in cui 
era stato disabilitato. 

PRIORITY numero, priorità 
Determina se lo SPRITE specificato da 
numero debba apparire sopra o sotto 
quanto presente sullo schermo. Un va¬ 
lore 0 di priorità fa apparire lo SPRI- 
TE sopra quanto visualizzato sullo 
schermo, mentre un valore 1 provoca 
l'effetto opposto. 

REL numero, x, y 

Esegue una rilocazione dello SPRITE 
definito da numero nella nuova posi¬ 
zione definita dalle coordinate x e y. 
Questo comando ha effetti visibili sol¬ 
tanto se lo SPRITE è abilitato. 

II parametro x di posizionamento oriz¬ 
zontale dello SPRITE può assumere va¬ 
lori da 0 a 511, ma l'intero SPRITE srà 
visibile soltanto per valori compresi tra 
24 e 343. 

Analogamente, il parametro y può va¬ 
riare da o a 255, ma l’intero SPRITE sa¬ 
rà visibile soltanto con valori tra 50 e 
249. Tali coordinate definiscono la posi¬ 
zione sullo schermo dell'angolo superio¬ 
re sinistro dello SPRITE. 

SCREEN banco, posizione 
Muove la memoria di schermo nell'area 
di RAM specificata. La memoria di 
schermo occupa 1000 byte e deve ini¬ 
ziare ad un indirizzo pari di una zona 
da 1 K. Esistono pertanto 16 possibili 
posizioni per la memoria di schermo al¬ 
l’interno di ciascun banco. 

Il parametro banco può assumere va¬ 
lori da 0 a 3. La memoria di schermo 
può essere posizionata anche nella 
RAM sotto la ROM; la seguente tabella 
mostra le locazioni occupate dalla me¬ 
moria di schermo in funzione dei valori 


assegnati al parametro posizione : 


posi¬ 

zione 

byte 

blocchi 

0 

0-1023 

0-151 

1 

1024-2047 

16-31 

2 

2048-3071 

32-47 

3 

3072-4095 

48-63 

4 

4096-5119 

64-79 

5 

5120-6143 

80-95 

6 

6144-7167 

96-111 

7 

7168-8191 

112-127 

8 

8192-9215 

128-143 

9 

9216-10239 

144-159 

10 

10240-11263 

160-175 

11 

11264-12287 

176-191 

12 

12288-13311 

192-207 

13 

13312-14335 

208-223 

14 

14336-15359 

224-239 

15 

15360-16383 

240-255 


1 numeri mostrati nella colonna "byte" 
sono le distanze dall'inizio del banco vi¬ 
deo all'inizio e alla fine della memoria di 
schermo. Per esempio, la memoria di 
schermo alla posizione 1 nel banco 

2 inizia alla locazione: 

32768+1024 - 33792. 

Si ricordi che il banco contenente la me¬ 
moria di schermo deve contenere an¬ 
che tutte le definizioni degli SPRITE e 
la memoria caratteri. La posizione di de¬ 
fault per la memoria di schermo è nella 
posizione 1 del banco 0 (locazioni 
1024-2023). Il seguente esempio: 

SCREEN 1,8: CHARS 1,4 

muove lo schermo nelle locazioni 
24576-25575 e copia il set di caratteri 
ROM nelle locazioni 20480-22527 (sen¬ 
za un set di caratteri nel banco 1, sareb¬ 
be impossibile visualizzare i caratteri 
sullo schermo di quel banco). Per ritor¬ 
nare alla memoria schermo normale, pu¬ 
lite lo schermo e digitate SCREEN 0,1. 

SIZE numero, dlmx, dlmy 
Modifica le dimensioni dello SPRITE in¬ 
dicato da numero, assegnandovi i nuo¬ 
vi valori dlmx e dlmy. 

I parametri dlmx e dlmy controllano 
le dimensioni dello SPRITE in senso 
orizzontale ed in senso verticale: se po¬ 
sti a 0 lo SPRITE ha dimensioni stan¬ 
dard, se posti a 1 lo SPRITE avrà dimen¬ 
sione raddoppiata nella direzione desi¬ 
derata. 

SOUND numero, tono, Jiffy, rlp, 
att, dee, sust, rei, onda, pulsa 
Definisce un suono che viene generato 
anche durante l'esecuzione di altre 
istruzioni del programma. Possono es¬ 
sere definiti fino a 16 diversi suoni, 
ognuno dei quali definito dal parametro 
numero (0-15). Può essere comunque 
attivo un suono alla volta; la prima volta 
che si utilizza questa istruzione occor- 
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re definirne tutti i parametri, mentre in 
seguito un suono porà essere richiama¬ 
to soltanto con il parametro numero. 

Il parametro tono (0-65535) determi¬ 
na la frequenza del suono; la relazione 
tra frequenza e valore del parametro to¬ 
no è: 

frequenza-fono *0,06096 

Dopo aver generato un suono, se ne 
può modificare soltanto la frequenza uti¬ 
lizzando la sintassi SOUND numero, to¬ 
no con un valore diverso per il parame¬ 
tro tono. 

Il parametro Jlffy (0-255) determina la 
durata del suono in sessantesimi di se¬ 
condo: un valore di 60 produrrà un suo¬ 
no della durata di 1 secondo. 

Il parametro rlp (0-255) definisce quan¬ 
te volte deve essere ripetuto il suono; il 
valore di tale parametro deve essere 
maggbre o uguale al valore del parame¬ 
tro Jlffy. 

I parametri att, dee, sust, rei defi¬ 
niscono i valori da assegnare all' at- 
tack, decay, sustain, release, tutti nel¬ 
l’intervallo 0-15. Opportune definizioni 
di questi parametri possono essere tro¬ 
vate nel manuale del computer. 

II parametro onda definisce il tipo di 
forma d'onda del suono: 0 per onda 
triangolare, 1 per dente di sega, 2 per 
pulsante, 3 per rumore. 

Il parametro pulso viene usato solo 
se il parametro onda ha il vabre 2, e 
stabilisce il vabre del cido di impulso 
(0-15). 

Ecco un esempb del comando SOUND: 

100 SOUND 4,0,3,5,1,0,15,5,1 

110 FORX-1 T08:READA:S0UND4,A 

:FORDE«1TO400:NEXT:NEXT 

120 DATA4291,4817,5407,5728, 

6430,7217,8101,8583 

130 SOUND 4,0,0,0:REM OFF 


Le funzioni di SPRITE Manager 

Oltre a tutti questi comandi, SPRITE 
Manager vi mette a disposizione una no¬ 
tevole libreria di funzioni. Se non siete 
familiari con l'uso delle funzioni, dovete 
sapere che le istruzioni o comandi pro¬ 
vocano azioni, mentre le funzbni resti¬ 
tuiscono dei vabri. 

Dal momento che la maggior parte dei 
nomi delle funzioni sono di due caratte¬ 
ri, occorre prestare attenzbne a non de¬ 
finire nei programmi vettori o matrbi 
con lo stesso nome di una delle funzb¬ 
ni di SPRITE Manager. 


SPRITE Manager 

49152 : 076,066, 192,076 
49158 :076,107,197,076 
49164 : 07 6, 247,194,076 
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FG (n) 

Restituisce il vabre -1 se b SPRITE n 
(0-7) è entrato in collisione con un ca¬ 
rattere o con un altro oggetto apparte¬ 
nente al fondo dello schermo, oppure re¬ 
stituisce il valore 0 nel caso contrario. 
Il registro di collisione di ciascuno 
SPRITE rimane settato fino a che il vab¬ 
re di tale funzione non venga letto. Ec¬ 
co un esempb: 

IF FG(7) THEN :SOUND 0: ANIM 
7,8,192,194:OFF 7 

JOY(n ) 

Restituisce il vabre 0 se il joystick col¬ 
legato alla porta n non è stato mosso 
in alcuna direzione. Quando la leva vie¬ 
ne mossa verso l'alto, il basso, sinistra 
o destra, la funzione restituisce rispetti¬ 
vamente i valori 1, 2, 4,o 8. Questi valo¬ 
ri sono cumulativi: se la leva è stata 
mossa verso l'alto e verso destra simul¬ 
taneamente, il valore restituito sarà 9. 
Se viene premuto il pulsante di fuoco, 
verrà aggiunto un 16 al valore indicante 
la direzione della leva. 

SP(n ) 

Restituisce il vabre -1 se b SPRITE n 
(0-7) è entrato in collisbne con un altro 
SPRITE, oppre 0 in caso contrario. 

XP(n) 

Restituisce un vabre nell'intervallo 0- 
511 indicante la attuale posizione oriz¬ 
zontale dello SPRITE numero n. 

YP(n) 

Restituisce un valore nell'intervalb 0- 
255 indicante la attuale posizione verti¬ 
cale dello SPRITE numero n. 

Note per II caricamento, la digi¬ 
tazione ed II trasferimento su di¬ 
sco del programma 

Il programma si carica da cassetta posi¬ 
zionandosi con il nastro in corrispon¬ 
denza del suo inizio e digitando: 

LOAD-,1,1 (RETURN) 

Attenzbne! Non inserire spazi tra gli 
apici. 

Al termine del caricamento, digitare: 

NEW (RETURN) 

SYS 49152 (RETURN) 

per attivare SPRITE Manager. 

Si noti che esso viene disabilitato 
premendo contemporaneamente 


064,194,156 49170 :076, 
134,200,028 49176 :076, 
222,194,253 49182 :076, 


RUN/STOP e RESTORE. 

Gli abbonati che non dispongono della 
cassetta allegata alla rivista dovranno 
utilizzare MLX (vedi in altra parte della 
rivista) per digitare il programma. Occor¬ 
rerà rispondere alle domande di MLX 
con: 

indirizzo iniziale: 49152 
indirizzo finale: 52351 

Dopo aver digitato e salvato il program¬ 
ma, sarà sufficiente seguire per il suo 
caricamento e attivazione le istruzioni 
date più sopra. 

Volendo invece trasferire da cassetta 
su disco il programma, occorre seguire 
questa procedura: 

Caricare ed attivare MLX e rispondere 
alle sue domande con gli indirizzi di cui 
sopra. 

Dopo aver digitato questi indirizzi, sul¬ 
lo schermo comparirà il vabre relativo 
all'indirizzo iniziale seguito dal cursore 
di MLX; premete SHIFT e L per caricare 
il programma: vi verrà chiesto se volete 
caricare da nastro o disco (scegliete na¬ 
stro) ed il nome del file (digitate il nome 
con cui il programma è registrato sulla 
cassetta). 

Al termine del carbamento ricomparirà 
sullo schermo il valore relativo all'indiriz¬ 
zo iniziale seguito dal cursore di MLX; 
premete SHIFT e S per salvare il pro¬ 
gramma: vi verrà chiesto se volete sal¬ 
vare su nastro o disco (scegliete disco) 
ed il nome del file (digitate il nome con 
cui avete caricato il programma dalla 
cassetta). 

Ricordiamo che, per conoscere il punto 
esatto di inizio dei vari programmi su 
cassetta ed il nome con il quale essi so¬ 
no stati registrati, ò sufficiente inserire 
quest'ultima completamente riavvolta 
nel registratore, azzerare il contana- 
stro e digitare: 

LOAD-* (RETURN) 

Dal momento che sicuramente non esi¬ 
ste sulla cassetta alcun programma di 
nome ’*', il computer passerà in rasse¬ 
gna tutti i programmi incontrati visualiz¬ 
zandone il nome con il messaggio: 


FOUND XXXX 

Sarà quindi utile annotarsi su un foglio i 
nomi dei programmi e la relativa posizb- 
ne del contanastro (sottrarre tre o quat¬ 
tro unità dal valore corrispondente al- 
l'apparizbnedel messaggio FOUND...). 


019,195,076,097,195,164 

183,194,076,037,195,017 

110,194,076,139,195,052 



4 9188 : 07 6, 02 5, 197,07 6, 124,196,218 
4 9194 : 07 6, 188,196, 07 6, 164,194,168 
4 9200 : 07 6, 072, 195, 07 6, 031, 196, 182 
4 9206 : 07 6,059,196, 07 6, 103, 196,24 8 
4 9212 : 07 6, 073,196, 07 6,255, 195, 163 
4 9218 :169, 10 9, 141, 004, 003, 169, 14 9 
4 9224 :192, 141, 005,003, 169, 04 5, 115 
4 9230 :141, 00 6, 003, 169, 193, 141,219 
4 9236 : 007, 003,169, 189, 141, 008,089 
4 9242 : 003, 169, 193, 141, 009, 003, 096 
4 9248 :169,228,141,010, 003, 169, 048 
4 92 54 :193, 141, 011,003, 07 6,019, 033 
4 92 60 :199, 166, 122,160, 004,132, 123 
4 92 66 : 015, 18 9, 000,002, 016,007,087 
49272 :201,255,240,062,232,208,038 
4 9278 : 24 4,201, 032,24 0, 055, 133,007 
4 9284 : 008,201,034,240, 086, 036,225 
4 92 90 : 015, 112,04 5,201, 063,208, 014 
4 9296 : 004, 169, 153,208,037,201, 14 8 
49302 :048,144,004,201,060,144,239 
4 9308 : 02 9, 132, 113,160,000, 132,210 
4 9314 : Oli, 136, 134,122,202,200, 199 
4 9320 : 232, 189, 000,002,056,24 9, 12 8 
4 9326 :158, 160,240,245,201, 128,026 
49332 :208,048,005,Oli,164,113,217 
4 9338 : 232, 200,153,251,001, 185, 184 
4 9344 :251, 001,24 0,056, 056,233,005 
4 9350 : 058,24 0,004,201, 073,208,214 
4 9356 : 002, 133, 015,056,233, 085,216 
4 9362 : 208,159, 133, 008, 18 9, 000,139 
4 9368 : 002,24 0,223, 197, 008,24 0,102 
4 9374 : 219,200,153,251, 001,232,254 
4 9380 : 208,24 0,166, 122,230,Oli,181 
4 9386 : 200, 185, 157, 160, 016,250, 178 
4 9392 :185, 158,160, 208,180,24 0,091 
4 9398 : 015, 18 9,000,002,016, 188, 14 4 
4 94 04 :153,253,001, 198, 123, 169, 125 
4 9410 : 255, 133, 122, 096, 160, 255,255 
4 9416 : 202,200,232, 189, 000,002,065 
4 9422 : 056,24 9, 098,193, 24 0, 24 5, 071 
4 9428 : 201, 128,208,004,005,Oli,065 
4 94 34 : 208, 156, 166, 122, 230,011,151 
4 94 40 : 200,185, 097,193, 016,250,205 
4 9446 :185,098, 193,208,224,240,162 
4 94 52 : 202,04 8, 003, 07 6, 24 3, 166,014 
4 94 58 : 201,255, 24 0,24 9, 036, 015,022 
4 9464 : 048,245, 201,204,176, 003, 165 
49470 :076,036,167,056,233,203,065 
4 94 76 :170, 132, 073, 160,255,202, 036 
4 94 82 : 24 0,008, 200,185, 098,193,230 
4 9488 : 016,250, 048,245, 200,185, 000 
4 94 94 : 098, 193, 04 8,005, 032,071, 021 
4 9500 :171,208,24 5, 07 6, 239, 166, 17 3 
4 9506 : 069,078, 065, 066,07 6, 197, 137 
4 9512 : 083, 07 9, 085, 078, 196, 068, 181 
4 9518 : 069, 083, 073, 071,20 6, 07 7, 177 
4 9524 : 07 9,086, 197,083, 073, 090,212 
4 9530 :197, 080, 082, 073, 07 9, 082,203 
4 9536 :073, 08 4,217,065, 07 8,07 3, 206 
4 9542 : 205, 082, 069, 204,07 9, 070,07 5 
4 9548 :198,067, 072,065,07 8,071, 17 9 
4 9554 :197, 068, 085, 077,208,067, 080 
4 9560 : 072,065, 082,211, 067, 07 9,216 
4 9566 : 080, 217, 083, 067,082,069,24 4 
4 9572 : 069,20 6, 067, 079, 07 6, 07 9,228 
4 9578 : 210, 065, 07 6, 07 6, 07 9, 07 0,234 
4 9584 :198,088,208, 089, 208, 07 0, 013 
4 9590 :199, 083,208, 074,07 9, 217, 018 
4 9596 : 000,032, 115, 000,032, 198,053 
4 9602 :193, 07 6, 17 4, 167,201, 204,185 
4 9608 :14 4,020,201,220, 17 6, 016,209 
4 9614 : 056, 233,204,010, 168,185,038 
49620 :023,194,072,185,022,194,134 
4 9626 : 072, 07 6, 115, 000,032, 121,122 
4 9632 : 000, 07 6,237, 167, 169, 000,105 
4 9638 :133, 013,032, 115, 000,201,212 
4 9644 .-220,144,033, 201,225,176, 211 
4 9650 :029, 056,233,220,010,072,094 


4 9656 : 032, 115, 000,032,241, 17 4,074 
4 9662 :104,168, 185,054, 194,133,068 
4 9668 : 085, 185, 055, 194, 133, 086,230 
4 967 4 : 032, 084,000,07 6, 141, 173, 004 
4 9680 : 032, 121, 000,07 6, 141, 174,04 8 
4 9686 : 002, 192, 005, 192,008, 192,101 
4 9692 : Oli, 192,014, 192,017, 192, 134 
4 9698 : 020, 192,023, 192,02 6, 192, 167 
4 9704 : 029, 192, 032, 192,035, 192,200 
4 9710 : 038,192,041, 192,04 4,192,233 
4 9716 : 04 7,192,051, 192,054,192, 012 
4 9722 : 057, 192, 060, 192, 063, 192, 04 6 
4 9728 : 032, 183, 198, 032, 080, 194,015 
4 9734 : 032, 160, 198,013, 021,208,190 
4 9740 :141, 021,208,096, 032,006,068 
4 974 6 : 226, 032,113, 194,032,006,173 
4 9752 : 226, 032, 167, 194,032,006,233 
4 9758 : 226, 032, 18 6, 194,032,00 6, 002 
4 97 64 : 226, 032,250, 194,032,006,072 
4 9770 : 226, 07 6,225, 194,032, 183,018 
4 9776 :198, 032, 096, 198,164,002,034 
4 9782 :14 5, 00 5, 141, 131,204,032,008 
4 97 88 : 024,204, 160, 063, 177,251,235 
4 97 94 : 24 0, 020, 141, 037,208,074,082 
4 9800 : 07 4,07 4,07 4,141,038,208,233 
4 9806 : 032, 160, 198, 013, 028,208,013 
4 9812 :141, 028,208, 096, 032,160,04 5 
4 9818 :198,073,255, 04 5, 028,208,193 
4 9824 :141,028,208, 096, 032,183,080 
4 9830 :198,032, 135, 198, 201, 016,17 8 
4 9836 :14 4,003,07 6,072, 17 8,166,04 3 
4 9842 : 002, 157,039,208, 096,032,200 
4 9848 :183, 198,032,096, 198,165,032 
4 9854 :100,032, 125, 198, 165,002,04 4 
4 98 60 : 010, 170, 072, 165, 101, 157, 103 
4 98 66 : 000,208, 162, 016, 165, 100,085 
4 9872 : 032, 196, 198, 032,135, 198,231 
4 9878 :104,170, 165,101, 157,001, 144 
4 9884 : 208,096,032, 183, 198,032,201 
4 9890 :135, 198,032, 12 5, 198, 162,052 
4 9896 : 029, 032, 196, 198,032, 135, 086 
4 9902 :198,032, 125, 198, 162,023,208 
4 9908 : 07 6, 196, 198,032, 183, 198,103 
4 9914 : 032, 220,198,168,165,002,Oli 
49920 :010,170,152,157,140,204,065 
4 9926 : 032,220, 198,168,165, 002, 023 
4 9932 : 010,170, 152,157, 141,204,078 
4 9938 : 096, 032, 183, 198,032,135, 182 
4 994 4 :198,201, 002, 14 4,003, 07 6, 136 
4 9950 : 072,178, 162,027, 07 6, 196, 229 
4 9956 :198,032, 183, 198, 032,160, 071 
4 9962 :198,073, 255,045, 021,208,07 4 
4 9968 :141,021,208,165, 002,010,083 
4 9974 :170, 169,000, 157, 14 0, 204,12 6 
4 9980 :157,141,204,166, 002, 157, 119 
4 9986 :188,204,157, 196, 204,096,087 
4 9992 :169, 000,141,021, 208,162,005 
4 9998 : 013, 157,14 0,204,202, 016, 04 2 
50004 : 250,162, 007,157, 188,204,028 
50010 :157, 196,204,202, 016, 24 7, 088 
50016 : 096, 032,183, 198, 168, 169, 17 4 
50022 : 000,153,188,204, 153,196,228 
50028 :204,032, 006,226, 032, 135, 231 
50034 :198,164,002, 153, 188,204,255 
5004 0 : 032, 135, 198,164,002, 153, 036 
5004 6 : 204,204,14 5, 005, 032, 135, 083 
50052 :198,164,002, 153,212,204,041 
50058 : 096, 032, 138,198,201, 004,039 
50064 :14 4,003, 07 6, 072, 17 8,141,24 6 
50070 :182, 195, 032,135, 198,141, 009 
50076 :181, 195, 162,005, 014,181, 126 
50082 :195, 04 6, 182,195,202, 016,230 
50088 : 24 7, 169, 000, 133,254,133,080 
500 94 : 253, 032, 22 6, 195, 164,253, 017 
50100 :185,255,255, 170, 169, 000,190 
50106 : 032,205, 189,230,254,230,046 
50112 : 253, 164,253, 192, 064,24 0,078 
50118 : 020, 166,254,224, 007,208,053 
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50124 : 006, 162, 000, 134,254,240,232 
50130 : 220, 169,04 4,032,210,255, 116 
50136 : 076, 178,195, 169, 24 5, 160,215 
50142 :195, 07 6, 030, 171, 169,233, 072 
5014 8 :160,195, 07 6, 030, 171, 013, 105 
50154 : 032,032, 032,032, 032,068,20 6 
50160 : 065,084,065, 032,000, 058,032 
50166 : 082,069, 07 7,032,07 0, 07 6, 14 0 
50172 : 065,071,000,032,155,188,251 
50178 :165,101, 133,002,24 0,020,151 
50184 : 201,003., 17 6,016, 041,001, 190 
50190 :170, 189, 000,220,073, 031, 185 
50196 : 041,031,168,169,000, 07 6,24 9 
50202 :14 9, 17 9, 07 6, 072, 178, 032,200 
50208 :255,198,010,170,189,000,086 
50214 : 208, 17 0, 032,171, 198,045, 094 
50220 : 016,208,008,138, 168,169,239 
50226 : 000, 04 0,24 0,002, 169,001,24 6 
50232 : 07 6, 14 9, 17 9, 032,255, 198, 177 
50238 : 010, 170, 189, 001,208, 168, 04 0 
5024 4 :169, 000,07 6,14 9, 179, 032, 161 
50250 : 255, 198,032, 171, 198, 04 5, 205 
50256 : 015,205,008, 073,255,045,169 
50262 : 015, 205, 141, 015,205, 169, 068 
502 68 : 000, 168,04 0,240, 003, 169, 200 
50274 :255, 168,07 6, 14 9, 17 9, 032, 189 
50280 : 255, 198,032, 171,198,045,235 
50286 : 016,205, 008,073,255, 04 5,200 
50292 : 016,205, 141,016,205, 07 6, 007 
50298 -.091,196, 032, 138, 198,201,210 
50304 : 004,14 4,003, 07 6, 072, 17 8, 093 
50310 :141, 180, 196, 032, 135, 198,24 8 
50316 :141, 17 9, 196, 032, 135, 198,253 
50322 : 201,004,17 6,237, 141, 183, 064 
50328 :196,032,135,198,141,182,012 
50334 :196, 162,005, 014, 17 9, 196, 14 2 
50340 :04 6, 180, 196, 014, 182, 196, 210 
5034 6 : 046, 183, 196,202,016, 241, 030 
50352 :162,063, 189,255, 255, 157,233 
50358 :255,255,202,016,247,096,229 
50364 : 032, 138, 198,201, 004,17 6, 169 
50370 : 010,141, 014,20 5,032, 135,219 
50376 -.198,201, 016, 14 4,003, 07 6, 070 
50382 : 072, 17 8,141,013,205, 173,220 
50388 : 014,205,010,010, 010, 010,215 
50394 : 013, 013,205,010, 010, 141, 098 
504 00 :136,002, 173, 000, 221, 041, 029 
504 06 :252,013, 014,205, 073, 003, 022 
50412 :141, 000,221, 173, 013,205,221 
50418 : 010, 010, 010, 010, 141, 013, 180 
50424 :205,173,024,208,041,015,146 
504 30 : 013,013, 205, 141,024,208,090 
504 36 :173, 136, 002, 041, 192,141, 177 
504 42 :125,204, 169, 24 8, 133, 005, 126 
504 48 :173, 136, 002, 024,105, 003,203 
504 54 :133,006, 096,032, 138, 198, 113 
504 60 : 201, 004,144,003, 07 6,072, 016 
504 66 :178,010,010, 010, 010,141,137 
504 72 : 08 6, 197, 032, 135, 198,201, 121 
504 78 : 016, 17 6,239, 013, 08 6, 197,005 
504 84 : 010, 010, 141,08 6, 197, 169, 153 
504 90 : 000, 141, 082,197, 169,208, 087 
504 96 :141, 083, 197, 120, 165,001,003 
50502 : 041,251, 133,001, 162,007, 153 
50508 :160, 000, 14 0,085, 197, 185,07 5 
50514 : 255,2 55, 153,255,255,200,17 5 
50520 : 208,24 7,238,083, 197,238,019 
50526 : 086, 197,202, 016,238, 165,230 
50532 : 001, 009, 004,133,001,088, 080 
50538 : 096, 056, 032, 065, 198,010, 051 
5054 4 : 010, 010, 141,020, 205,032,018 
50550 :177, 197, 174,020,205, 18 9,056 
50556 : 021,205, 141,000, 212, 18 9,124 
50562 : 022,205, 141,001,212,189, 132 
50568 : 023,205, 141, 018,205, 189, 14 9 
50574 : 024,205, 141, 019,205, 18 9, 157 
50580 : 025,205, 141,005,212, 189, 157 
50586 : 02 6,205, 141,006,212, 189, 165 


50592 : 027,205, 141, 004,212,189,170 
50598 : 028,205,141, 003, 212, 169, 156 
50604 : 015, 141, 024,212,096, 032, 180 
50610 : 006, 22 6,024,032,060, 198,212 
50616 :157, 021,205, 165, 100, 157,221 
50622 : 022, 205,032, 006,226,024, 193 
50628 : 032, 060, 198, 157,023,205, 103 
50634 : 032,006,226, 024,032,060, 0.70 
50640 :198,164,100,24 0,003,07 6,221 
5064 6 : 087,198, 157,024,205,032, 14 9 
50652 : 006,22 6,056, 032,060, 198,030 
50658 : 010,010,010, 010, 157,025, 192 
50664 : 205, 056,032, 060,198, 02 9, 04 4 
50670 : 025,205, 157, 025, 205, 032, 119 
50676 : 006,226,056, 032,060, 198, 054 
50682 : 010,010,010, 010, 17 4,020,228 
50688 : 205, 157,02 6,205, 056, 032, 169 
50694 : 060,198,029, 02 6, 205, 157, 169 
507 00 : 026,205,032,006,22 6,056,051 
50706 :032, 060,198,201,004,176, 177 
50712 : 062,168,169, 017, 192,000, 120 
50718 : 24 0,012, 169, 033, 136,240,092 
50724 : 007,169,065, 136,240,002,143 
50730 :169, 12 9, 157, 027,205, 032,24 9 
50736 : 006,22 6,032, 060, 198, 17 4,232 
507 42 : 020,205, 157, 028, 205, 096,253 
50748 : 008,032,253, 174,040, 008, 063 
50754 : 032, 138,173, 032, 155, 188,016 
50760 :165,101,040,144,015,166,191 
507 66 :100,208,004,201,016,144,239 
50772 : 007,104,104,104, 104,07 6, 071 
50778 : 072,178,17 4,020,205,096,067 
50784 : 032,253, 174,032,138,173,130 
507 90 : 032,155, 188, 165, 098,005,233 

507 96 : 099, 24 0,005, 104,104,076,224 
50802 : 07 2, 17 8, 165, 100,201,004,066 
50808 :17 6,24 5, 165, 101,096,201,080 
50814 : 002,14 4,005, 104,104,07 6, 04 9 
50820 : 072,178, 096, 032,253,174,169 
5082 6 : 032, 138, 173, 032,155,188,088 
50832 :165, 098,005,099, 005, 100, 104 
50838 : 24 0,005, 104,104,07 6,072,239 
5084 4 :178, 165, 101,096, 169, 001, 098 

508 50 :164,002,24 0,004,010, 136,20 6 
50856 : 208,252,096, 169,001, 172, 04 2 
50862 : 017,205,24 0, 004,010, 136, 018 
50868 : 208,252,096,032, 138, 198, 080 
50874 : 201, 008, 14 4,003, 076,072,178 
50880 :178, 133, 002,096, 041, 001, 131 
50886 : 240,008, 032,160, 198,029, 097 
50892 : 000,208,208,008,032, 160, 052 
508 98 :198,073,255, 061,000,208,237 
50904 :157,000, 208, 096, 032,253, 194 
50910 :17 4,032, 138, 173, 032,155, 158 
50916 :188, 166, 100, 24 0, 015,232, 14 5 
50922 : 24 0, 005, 104, 104,07 6,072,067 
50928 :178,165,101,201,128,144,133 
50934 : 24 5, 096, 165, 101, 201, 128, 158 
50940 :17 6, 238,096,032, 155, 188, 113 
5094 6 :165, 100,208,010, 165, 101,239 
50952 :201, 008, 17 6, 004,141,017,04 3 
50958 :205, 096, 07 6, 072, 17 8, 162,035 
50964 : 000, 169, 000, 157, 126,204,164 
50970 : 202,208,250, 162,000, 169,24 9 
50976 : 001,157, 172,204,232,232,006 
50982 : 010,224,016,208,24 6, 120,094 
50988 :169, 135, 141,020,003, 169, 169 
50994 :199, 141, 021,003, 169,250,065 
51000 :141, 018, 208, 169, 129, 141,094 
51006 : 02 6,208, 173, 017,208,041,223 
51012 :127, 141, 017,208,088,169,050 
51018 : 001, 141, 032,208, 169,006, 119 
51024 :141,033,208, 169,093, 160,116 
51030 :199, 032, 030,171,07 6,012,094 
51036 :197, 005, 14 7,032,032,018,Oli 
51042 : 032, 083, 080,082,073,084,020 
51048 : 069, 032, 077,065,078,065,234 
51054 : 071, 069, 082,032,073,083,008 
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51060 

51066 

51072 

51078 

51084 

51090 

51096 

51102 

51108 

51114 

51120 

51126 

51132 

51138 

51144 

51150 

51156 

51162 

51168 

51174 

51180 

51186 

51192 

51198 

51204 

51210 

51216 

51222 

51228 

51234 

51240 

51246 

51252 

51258 

51264 

51270 

51276 

51282 

51288 

51294 

51300 

51306 

51312 

51318 

51324 

51330 

51336 

51342 

51348 

51354 

51360 

51366 

51372 

51378 

51384 

51390 

51396 

51402 

51408 

51414 

51420 

51426 

51432 

51438 

51444 

51450 

51456 

51462 

51468 

51474 

51480 

51486 

51492 

51498 

51504 

51510 

51516 

51522 


: 032, 07 8,07 9, 087, 032, 065, 233 
: 067, 084,073, 08 6,065, 084,069 
: 069, 068,032,14 6, 032, 032,251 
: 000, 173,025, 208, 141, 025, 194 
: 208,041,001,208, 003, 076, 165 
: 049, 234,173,030,208, 013,085 
: 015,205, 141, 015,205, 173,138 
: 031, 208,013, 016,205, 141, 004 
: 016, 205, 173, 021,208,208,227 
: 003,07 6,077,200, 165, 101,024 
: 072, 173,221,204,04 8,091,217 
-.173,021,208,133,003,162, 114 
: 000,138, 07 4, 17 6, 004,070,138 
: 003, 14 4,038, 189, 14 0,204,14 4 
: 048,041, 189, 156,204,041,111 
: 007,02 4,125, 140,204,157,095 
: 156, 204,106, 07 4,07 4,02 4,082 
: 125, 000,208, 157,000,208,14 8 
: 144,009, 173, 016,208,093,099 
: 172,204,141,016,208,232, 17 9 
: 224,016,208, 205, 076,017,214 
: 200, 189,156,204,041,007,015 
: 056, 253, 14 0, 204,157, 156, 190 
: 204,10 6, 07 4, 07 4,133, 101, 178 
: 189, 000,208, 056,229, 101,019 
: 157, 000, 208, 17 6,220,14 4,147 
: 20 9, 173, 021, 208,133,003,251 
: 160, 007, 006, 003, 14 4,04 3, 129 
: 185, 188,204,240,038, 185,04 4 
: 196, 204,024, 105, 001, 153,205 
: 196, 204,217, 188,204,14 4, 169 
: 024,169,000, 153, 196,204,024 
: 177, 005, 024, 105, 001, 14 5,253 
: 005, 18 5,212, 204,209, 005, 110 
: 17 6, 005, 185,204,204,14 5,215 
: 005, 136,016,206, 104, 133, 158 
: 101,17 3,018,205,24 0, 018,063 
:206, 018,205,208,044, 17 4,169 
: 020,205, 18 9, 027, 205, 041, 007 
:254,141,004,212,240, 031,208 
: 173, 019,205,24 0,026,206,201 
: 019,205, 208,021, 17 4,020,241 
: 205, 189,023,205, 141, 018,125 
: 20 5, 189, 024,205, 141,019, 133 
: 205, 18 9, 027, 205, 141, 004,127 
: 212, 07 6, 129,234,032, 14 6, 191 
: 200, 032,070,201, 032, 089,24 8 
: 203, 07 6,214,201, 032, 138,238 
: 198, 141, 131,204,032,135,221 
: 198,141, 128,204,169,000,226 
: 141, 130,204,032,041,201, 141 
-.169, 000, 141, 127,204,169, 208 
: 128,141,221,204,173, 134,14 9 
: 002, 141,220,204,160,046, 183 
: 185, 000,208, 153, 222,204,132 
: 136, 016,24 7, 160,007, 17 7, 165 
: 005, 153, 132, 204,136, 016, 07 4 
: 248, 160,003, 173, 131,204,097 
: 14 5, 005, 173, 128,204, 153,24 8 
: 039, 208,136, 016,24 2, 169, 000 
: 015,141,021,208, 169,24 5,251 
: 141, 000,208, 141, 004,208, 160 
: 169, 028, 141,002, 208, 141,153 
: 006, 208, 169, 110, 141,001, 105 
: 208,141,003,208,169, 142,091 
: 141,005,208,141,007,208, 192 
: 169,010, 141, 016,208,141, 173 
: 029,208, 169, 012,141, 023, 07 6 
: 208,169, 000, 141,028, 208,254 
: 173, 130,204,24 0,017, 169, 183 
: 015, 141, 028,208, 173, 12 9, 206 
: 204, 141, 037,208, 17 3, 126, 151 
: 204, 141, 038,208,096, 032,24 3 
: 00 6, 22 6, 032, 135, 198, 141,012 
: 129,204,141, 130,204,032, 120 
: 135, 198, 141, 126, 204,010, 100 
: 010,010, 010,077, 130,204,24 5 
: 141, 130,204,096, 169, 001,039 


51528 :141,033, 208 
51534 :141, 134,002 
51540 :169,231,141 
51546 : 006, 141,098 
51552 :141,255,255 
51558 :095,173,136 
51564 :024,105,003 
51570 :089,162,232 
51576 :134,088,032 
51582 :136,002,133 
51588 :003,133,254 
51594 : 251, 169, 153 
51600 :024,169,228 
51606 : 208,251,160 
51612 :145, 253, 136 
51618 :231,133,002 
51624 : 021,165,251 
51630 :133,251,144 
51636 :165, 002, 145 
51642 :238,169,229 
51648 : 025, 162,021 
51654 :233, 040, 133 
51660 :198,254, 165 
51666 : 202,208,238 
51672 :141, 138, 002 
51678 :032,225,255 
51684 : 020,203, 032 
51690 : 029,208,Oli 
51696 : 240,003, 076 
51702 :178,202, 201 
51708 : 201, 145, 240 
51714 : 208,007, 17 4 
51720 : 085,240, 088 
51726 : 003, 07 6, 142 
51732 : 208, 003, 07 6 
51738 : 020, 208, 007 
51744 :208,069,240 
51750 : 208,004, 169 
51756 : 201,133, 144 
51762 :17 6, 170, 201 
51768 :174,130,204 
51774 : 003, 170, 189 
51780 :109, 174, 130 
51786 : 032, 190, 202 
51792 : 032,202,203 
51798 :198, 106, 016 
51804 : 208, 086, 198 
51810 : 202, 198, 107 
51816 :107,032, 198 
51822 :173,127,204 
51828 :107,032, 198 
51834 :173,127,204 
51840 : 202,203, 076 
51846 : 002, 133, 106 
51852 : 244,202,032 
51858 :183,202, 032 
51864 : 252, 133, 108 
51870 :133, 109,032 
51876 :190,202, 198 
51882 : 032,202, 203 
51888 : 230,107,230 
51894 : 202,169, 170 
51900 : 222,201, 164 
51906 :145,243,230 
51912 : 201, 026, 144 
51918 :133, 107,166 
51924 :106, 201,002 
51930 : 025,133,107 
51936 :134,106, 165 
51942 :176, 004,169 
51948 : 201,023, 144 
51954 :133, 106, 169 
51960 :145,209,166 
51966 : 041,003,013 
51972 :210,189,240 
51978 : 032,036,234 
51984 :211,134,214 
51990 :208,133,097 


, 173, 127,204,190 
, 032, 068,229, 172 
,097,201,165,064 
,201, 169, 160, 097 
,169,000,133,025 
,002,133,096,225 
, 133,091,133, 085 
,134,090,202,255 
, 191,163,173, 133 
,252,024,105,010 
,169,041,133,097 
,133,253,160,233 
, 145,251, 136, 073 
,024,169,227,165 
,208,251,169,038 
,160,000,162,082 
,024,105,040,006 
,002,230,252,162 
,251,202,208,129 
,133,002,160,093 
,165,253,056,106 
,253,176,002,011 
,002,145,253,197 
,096,169,128,227 
,076,142,202,149 
,208,003,076,253 
,228,255,201,143 
,174,130,204,222 
,176,202,076,245 
,017,240,094,154 
, 086, 201, 157, 002 
, 130, 204,208, 165 
,201,019,208,081 
,202,201,147,017 
, 148,202,201, 090 
,174,130,204,001 
,079,201,032,093 
,001,208,019,135 
,174,201,137,010 
, 135, 144,005, 113 
, 240, 161, 041,238 
, 126, 204, 133, 119 
,204,240,003,160 
,032,190,202,154 
,076,222,201,248 
,090,230,106,064 
,107,032,198,153 
, 016, 077,198,128 
,202,164,211,250 
,145,243,198,176 
,202,164,211,006 
,145,243,032,022 
, 222,201, 169, 177 
,133,107,076,179 
,133,202,076,005 
,133,202,169,043 
,173,127,204,125 
,190,202,032,088 
,108,208,246,036 
,076,142,202,003 
,107,032,198,056 
, 145,209, 076, 129 
,211,165,109,236 
,107,165,107,167 
,009,169,002,239 
,106,232,134,060 
,176,009,169,107 
,166,106,202,189 
,106,201,002,170 
,002,133,106,052 
,004,169,022,031 
,160,164,211,161 
,106,181,217,248 
,136,002,133,070 
,236,133,209,197 
,164,107,132,203 
,096,173,037,113 
,173,038,208,111 
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51996 :133, 098, 160,04 6, 185,222, 104 
52002 : 204,153, 000, 208,136, 016,239 
52008 : 24 7,169,250, 141, 018,208, 04 9 
52014 :160,007, 18 5, 132,204,14 5,111 
52020 : 005, 136, 016,24 8, 160,063, 168 
52026 :173, 130,204,14 5,251,24 0, 177 
52032 : 010, 165, 097,141, 037,208,210 
52038 :165, 098, 141, 038,208, 173, 125 
52044 : 220,204, 141, 134,002,169, 17 8 
520 50 : 000, 141,221, 204,07 6, 068, 024 
52056 : 229, 032, 024,204,032, 133, 230 
520 62 :202, 17 4,130,204,208,04 4,032 
52068 :160, 000, 177,251, 162,007, 089 
52074 : 010,072, 138,072, 152, 072, 110 
52080 : 032, 129,203, 104,168, 104, 084 
52086 :17 0, 104,202,016,239,200, 025 
52092 :192,063,208,230, 096, 173, 062 
52098 :127,204,133, 109, 14 4,005, 084 
52104 :173, 128,204,133, 109, 07 6, 191 
52110 :190,202, 160,000, 177,251, 098 
52116 :162,003,010,038,253,010,112 
52122 : 038, 253, 072,138, 072, 152,111 
52128 : 072, 032,17 8, 203, 104,168, 14 9 
52134 :104, 170,104,202, 016,234,228 
52140 : 200,192,063,208, 225,096, 132 
5214 6 : 230,253, 165,253,041,003,099 
52152 : 201, 002,14 4,002, 07 3, 001,095 
52158 :17 0, 18 9, 12 6,204,133, 10 9,097 
52164 : 032,190,202, 07 6, 190,202,064 
52170 :165,214,072, 165, 211,072,07 7 


5217 6 : 032, 024,204,032, 133,202, 067 
52182 :17 4, 130,204,208, 080, 160, 14 6 
52188 : 000, 162,007, 132, 254,164,171 
52194 : 211, 177,24 3, 041, 015, 205,094 
52200 :127,204,024,240,001,056,116 
52206 :164,254,17 7,251, 04 2,14 5,24 7 
52212 : 251,072, 138,072, 152,072,233 
52218 : 032, 196, 202, 104, 168,104,032 
52224 :170, 104,202,016,218,200, 142 
52230 :192,063,208,211, 104,133, 14 9 
52236 -.107,104,133, 10 6, 032, 24 4,226 
52242 : 202,169, 170, 14 5,209, 096,241 
5224 8 :169,000, 133,251,173, 131, 113 
52254 :204,074,102,251,074,102,069 
52260 : 251,013, 125,204,133, 252,24 6 
52266 : 096, 160, 000, 162,003, 132, 083 
52272 : 254,164,211, 177, 24 3, 041, 114 
52278 : 015,205, 127,204,208, 004,04 9 
522 84 :169,000, 240,020, 205, 12 8, 054 
52290 : 204,208, 004,169, 128,208,219 
52296 : Oli,205, 129,204,208, 004, 065 
52302 :169,064,208, 002, 169, 192, 114 
52308 :133,253, 164,254,177,251, 036 
52314 : 038,253, 04 2,038,253, 04 2,24 4 
52320 :14 5, 251, 072,138, 072, 152, 158 
52326 :072, 032,196,202, 032, 196, 064 
52332 : 202, 104,168,104,170, 104,192 
52338 : 202, 016, 18 6, 200, 192, 063,205 
5234 4 : 208,179,076,010, 204,000,029 
52350 : 255, 000,254,255, 050,255, 171 



JACKSON 


LA BIBLIOTECA CHE FA TESTO 



HOME E PERSONAL COMPUT 


D. Lawrence, M. England 
AMIGA HANDBOOK 
Pagine 189, L 35.000 
Cod. CC320 
Ancora una volta il 
Gruppo Editoriale Jackson 
si dimostra tempestivo e 
al passo con i tempi. A 
distanza di pochi mesi 
dalla presentazione al 
pubblicò di Amiga, il 
nuovo computer della 
Commodore, a tutti i 
possibili utilizzatori di 
questa macchina viene 
rivolta una pratica e 
utilissima pubblicazione. 
Nel corso del testo sono 
analizzati il 

microprocessore 68000 e 



il coprocessore, l'ampia 
serie di librerie interne 
che controllano la grafica, 
il suono, le animazioni e la 
capacità di Amiga di 
parlare. 

Il libro affronta inoltre 
l'interfaccia Intuition 
(addetta al controllo delle 
finestre e delle icone), la 
Comand Line Interpreter 
di testo, i programmi in 
amigaBASIC, l'ambiente 
Workbench e la sua 
versatilità operativa, l'uso 
e i comandi dell'editor di 
schermo. 

Insomma, una guida 
preziosa per chi vuol 
conoscere tutto su questo 
versatile computer. 
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di B.Childress 

trad. ed adatt. di M.Cristulb Grizzi 

Questo numero di SuperCommo- 
dore propone a tutti I "sessanta- 
quattrlsti" RAM Plus: un pro¬ 
gramma estremamente utile ed 
interessante che permette di ot¬ 
tenere ben 4 «byte in più per i 
propri programmi BASIC, senza 
dover acquistare alcuna espan¬ 
sione di memoria separata. 

Se vi è già capitato di veder comparire il 
messaggio "OUT OF MEMORY" mentre 
state scrivendo o provando un program¬ 
ma BASIC, vi sarete accorti che i quasi 
39 Kbyte disponibili per il BASIC nel 
C64 non sono poi quella gran quantità 
di memoria che potrebbero sembrare a 
prima vista. Oltre alla memoria consu¬ 
mata dal listato vero e proprio del pro¬ 
gramma, una buona quantità di RAM vie¬ 
ne "mangiata" dalle matrici e dai vettori, 
dai dati di definizione degli SPRITE o 
dei caratteri ridefiniti, e dalle variabili uti¬ 
lizzate aH'interno del programma. 

RAM Plus è una breve routine in linguag¬ 
gio macchina che aggiunge esattamen¬ 
te 4 Kbyte alla memoria BASIC stan¬ 
dard. Poiché questa memoria aggiunti¬ 
va non viene presa da espansioni ester¬ 
ne, dovrà essere sottratta ad un’altra 
zona della RAM del C64: questa zona è 
infatti costituita dalla RAM presente tra 
la locazione 49152 e la locazione 
53247. Quest'area non è contigua alla 
memoria BASIC del C64 (che termina 
normalmente con la locazione 40959) e 
viene di solito utilizzata per memorizza¬ 
re programmi in linguaggio macchina: in¬ 
fatti mentre un programma BASIC deve 
necessariamente risiedere nella memo¬ 
ria BASIC, un programma in linguaggio 


macchina può essere scritto in qualsia¬ 
si zona di RAM libera. 

RAM Plus si carica ed attiva automati¬ 
camente attraverso un breve program¬ 
mino caricatore: dopo una breve attesa 
vedrete comparire l'abituale schermata 
di sistema del C64 con la scritta "43007 
BASIC BYTES FREE". Da questo mo¬ 
mento in poi disponete della memoria 
BASIC espansa per tutte le vostre appli¬ 
cazioni. 

RAM Plus può essere disabilitato pre¬ 
mendo RUN/STOP e RESTORE e ri¬ 
spondendo con Y alla domanda di con¬ 
ferma posta dal C64; si tenga presente 


che, una volta disabilitato RAM Plus, 
esso non può essere riabilitato che re- 
settando il computer e rilanciando il pro¬ 
gramma. 

Dal momento che RAM Plus utilizza le 
locazioni di memoria 49152-53247 e 
679-767, esse non risultano più disponi¬ 
bili per altre applicazioni. 

Gli esperti di programmazione in lin¬ 
guaggio macchina troveranno senz'al¬ 
tro interessante il funzionamento di 
RAM Plus, desumibile dal suo disas¬ 
semblato: 

Disassemblato di "RAMPLUS.OBJ": 
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r 

9470 

A5 

38 


LDA 

$38 

t 

9472 

C9 

BO 


CMP 

#$B0 

t 

9474 

DO 

01 


BNE 

$9477 

r 

9476 

60 



RTS 


t 

9477 

AD 

86 

02 

LDA 

$0286 

r 

947A 

AE 

20 

DO 

LDX 

$D020 

r 

947D 

AC 

21 

DO 

LDY 

$D021 

t 

9480 

8D 

CF 

96 

STA 

$96CF 

r 

9483 

8E 

DO 

96 

STX 

$96D0 

r 

9486 

8C 

DI 

96 

STY 

$96D1 

t 

9489 

A9 

OC 


LDA 

*$0C 

t 

948B 

A2 

00 


LDX 

#$00 

r 

948D 

85 

FB 


STA 

$FB 

t 

948F 

8D 

86 

02 

STA 

$0286 

r 

9492 

8E 

20 

DO 

STX 

$D020 

r 

9495 

8E 

21 

DO 

STX 

$D021 

/ 

9498 

A9 

73 


LDA 

#$73 

f 

949A 

A0 

E4 


LDY 

#$E4 

f 

949C 

20 

1E 

AB 

JSR 

$AB1E 

r 

949F 

A2 

00 


LDX 

#$00 

/ 

94A1 

BD 

B4 

96 

LDA 

$ 96B4,X 

f 

94A4 

F0 

06 


BEQ 

$ 94 AC 

r 

94A6 

20 

D2 

FF 

JSR 

$FFD2 

f 

94A9 

E8 



INX 


r 

94AA 

DO 

F5 


BNE 

$94A1 

r 

9 4 AC 

20 

A9 

96 

JSR 

$96A9 

r 

94AF 

C6 

FB 


DEC 

$FB 

f 

94B1 

10 

F9 


BPL 

$94AC 

r 

94B3 

BD 

D2 

96 

LDA 

$ 96D2,X 

t 

94B6 

C9 

80 


CMP 

#$80 

t 

94B8 

FO 

06 


BEQ 

$ 94C0 

$ 

94BA 

9D 

A7 

02 

STA 

$02A7,X 

f 

94BD 

E8 



INX 


f 

94BE 

DO 

F3 


BNE 

$94B3 

/ 

94C0 

A9 

AO 


LDA 

#$A0 

t 

94C2 

A2 

00 


LDX 

#$00 

9 

94C4 

AO 

EO 


LDY 

#$E0 

9 

94C6 

86 

FB 


STX 

$FB 

9 

94C8 

86 

FD 


STX 

$FD 

9 

94CA 

85 

FC 


STA 

$FC 

9 

94CC 

84 

FE 


STY 

$FE 

9 

94CE 

Al 

FB 


LDA 

($FB,X) 

9 

94D0 

81 

FB 


STA 

($FB,X) 

9 

94D2 

Al 

FD 


LDA 

($FD,X) 

9 

94D4 

81 

FD 


STA 

($FD,X) 

9 

94D6 

E6 

FB 


INC 

$FB 

9 

94D8 

E6 

FD 


INC 

$FD 

9 

94DA 

DO 

F2 


BNE 

$94CE 

9 

94DC 

E6 

FC 


INC 

$FC 

9 

94DE 

E6 

FE 


INC 

$FE 

9 

94E0 

DO 

EC 


BNE 

$94CE 

9 

94E2 

20 

53 

E4 

JSR 

$E4 53 

9 

94E5 

A9 

48 


LDA 

#$48 

9 

94E7 

A2 

EB 


LDX 

#$EB 

9 

94E9 

8D 

8F 

02 

STA 

$028F 

9 

94EC 

8E 

90 

02 

STX 

$0290 

9 

94EF 

A9 

A7 


LDA 

#$A7 

9 

94F1 

A2 

02 


LDX 

#$02 

9 

94F3 

8D 

16 

03 

STA 

$0316 

9 

94F6 

8D 

18 

03 

STA 

$0318 

9 

94F9 

8E 

17 

03 

STX 

$0317 

9 

94FC 

8E 

19 

03 

STX 

$0319 

9 

94FF 

A9 

A5 


LDA 

#$A5 

9 

9501 

A2 

F 4 


LDX 

#$F4 

9 

9503 

8D 

30 

03 

STA 

$0330 

9 

9506 

8E 

31 

03 

STX 

$0331 

9 

9509 

A9 

03 


LDA 

#$03 

9 

950B 

A2 

00 


LDX 

#$00 

9 

950D 

A8 



TAY 


9 

950E 

85 

FC 


STA 

$FC 

9 

9510 

86 

FB 


STX 

$FB 

9 

9512 

20 

99 

96 

JSR 

$9699 


/ 

9515 

CO 

OC 


CPY 

#$oc 

9 

9517 

90 

F9 


BCC 

$9512 

9 

9519 

A9 

C2 


LDA 

#$C2 

9 

951B 

8D 

12 

03 

STA 

$0312 

9 

951E 

A9 

AO 


LDA 

#$A0 

9 

9520 

85 

FC 


STA 

$FC 

9 

9522 

AO 

OD 


LDY 

#$0D 

9 

9524 

20 

99 

96 

JSR 

$9699 

9 

9527 

CO 

80 


CPY 

#$80 

9 

9529 

90 

F9 


BCC 

$9524 

9 

952B 

AO 

82 


LDY 

#$82 

9 

952D 

20 

99 

96 

JSR 

$9699 

9 

9530 

C8 



INY 


9 

9531 

CO 

9E 


CPY 

#$9E 

9 

9533 

90 

F8 


BCC 

$952D 

9 

9535 

A9 

A3 


LDA 

#$A3 

9 

9537 

85 

FC 


STA 

$FC 

9 

9539 

AO 

29 


LDY 

#$29 

9 

953B 

20 

99 

96 

JSR 

$9699 

9 

953E 

CO 

64 


CPY 

#$64 

9 

9540 

90 

F9 


BCC 

$953B 

9 

9542 

A9 

89 


LDA 

#$89 

9 

9544 

85 

FB 


STA 

$FB 

9 

9546 

A2 

00 


LDX 

#$00 

9 

9548 

Al 

FB 


LDA 

($FB,X) 

9 

954A 

C9 

20 


CMP 

#$20 

9 

954C 

FO 

04 


BEQ 

$9552 

9 

954E 

C9 

4C 


CMP 

#$4C 

9 

9550 

DO 

15 


BNE 

$9567 

9 

9552 

AO 

02 


LDY 

#$02 

9 

9554 

B1 

FB 


LDA 

( $FB),Y 

9 

9556 

C9 

AO 


CMP 

#$A0 

9 

9558 

90 

OD 


BCC 

$9567 

9 

955A 

C9 

CO 


CMP 

#$C0 

9 

955C 

BO 

09 


BCS 

$9567 

9 

955E 

20 

93 

96 

JSR 

$9693 

9 

9561 

20 

6D 

95 

JSR 

$ 956D 

9 

9564 

20 

6D 

95 

JSR 

$956D 

9 

9567 

20 

6D 

95 

JSR 

$956D 

9 

956A 

4C 

46 

95 

JMP 

$9546 

9 

956D 

E6 

FB 


INC 

$FB 

9 

956F 

DO 

OE 


BNE 

$ 957F 

9 

9571 

E6 

FC 


INC 

$FC 

9 

9573 

FO 

OB 


BEQ 

$9580 

9 

9575 

A5 

FC 


LDA 

$FC 

9 

9577 

C9 

DO 


CMP 

#$D0 

9 

9579 

DO 

04 


BNE 

$957F 

9 

957B 

A9 

EO 


LDA 

#$E0 

9 

957D 

85 

FC 


STA 

$FC 

9 

957F 

60 



RTS 


9 

9580 

68 



PLA 


9 

9581 

68 



PLA 


9 

9582 

AO 

BO 


LDY 

#$B0 

9 

9584 

86 

33 


STX 

$33 

9 

9586 

84 

34 


STY 

$34 

9 

9588 

86 

37 


STX 

$37 

9 

958A 

84 

38 


STY 

$38 

9 

958C 

8E 

83 

02 

STX 

$0283 

9 

958F 

8C 

84 

02 

STY 

$0284 

9 

9592 

A9 

35 


LDA 

#$35 

9 

9594 

A2 

2F 


LDX 

#$2F 

9 

9596 

78 



SEI 


9 

9597 

85 

01 


STA 

$01 

9 

9599 

86 

00 


STX 

$00 

9 

959B 

58 



CLI 


9 

959C 

A9 

FF 


LDA 

#$FF 

9 

959E 

A2 

BF 


LDX 

#$BF 

9 

95A0 

AO 

CF 


LDY 

#$CF 

9 

95A2 

85 

FB 


STA 

$FB 

9 

95A4 

85 

FD 


STA 

$FD 

9 

95A6 

86 

FC 


STX 

$FC 

9 

95A8 

84 

FE 


STY 

$FE 

9 

95AA 

A2 

00 


LDX 

#$00 
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• 9 

95AC 

Al 

FB 


LDA 

($FB,X) 

• f 

95AE 

81 

FD 


STA 

($FD,X) 

• f 

95B0 

C6 

FB 


DEC 

$FB 

• r 

95B2 

C6 

FD 


DEC 

$FD 

• / 

95B4 

A5 

FD 


LDA 

$FD 

• r 

95B6 

C9 

FF 


CMP 

#$FF 

• r 

95B8 

DO 

F2 


BNE 

$95 AC 

* 9 

95BA 

A5 

FE 


LDA 

$FE 

• / 

95BC 

C9 

BO 


CMP 

#$B0 

* / 

95BE 

FO 

06 


BEQ 

$95C6 

• / 

95C0 

C6 

FC 


DEC 

$FC 

• r 

95C2 

C6 

FE 


DEC 

$FE 

• / 

95C4 

DO 

E6 


BNE 

$95AC 

* r 

95C6 

8D 

BE 

B5 

STA 

$B5BE 

• r 

95C9 

8D 

FC 

B5 

STA 

$B5FC 

• r 

95CC 

8D 

01 

B6 

STA 

$B601 

• r 

95CF 

8D 

32 

B7 

STA 

$B732 

• r 

95D2 

8D 

3A 

B7 

STA 

$B73A 

• r 

95D5 

8D 

FB 

B7 

STA 

$B7FB 

• / 

95D8 

8D 

FF 

B7 

STA 

$B7FF 

• f 

95DB 

8D 

F3 

BD 

STA 

$BDF3 

• r 

95DE 

8D 

1B 

BE 

STA 

$BE1B 

• f 

95E1 

8D 

22 

BE 

STA 

$BE22 

• / 

95E4 

8D 

26 

BE 

STA 

$BE26 

• f 

95E7 

8D 

37 

BE 

STA 

$BE37 

• / 

95EA 

8D 

01 

FD 

STA 

$FD01 

• / 

95ED 

8D 

71 

FE 

STA 

$FE71 

• / 

95F0 

A9 

A4 


LDA 

#$A4 

• / 

95F2 

8D 

OF 

ED 

STA 

$ED0F 

• / 

95F5 

A9 

A9 


LDA 

#$A9 

• $ 

95F7 

8D 

42 

BB 

STA 

$BB42 

• f 

95FA 

A9 

CI 


LDA 

#$C1 

• / 

95FC 

8D 

C8 

CI 

STA 

$C1C8 

« / 

95FF 

A9 

AF 


LDA 

#$AF 

« / 

9601 

8D 

D8 

BF 

STA 

$BFD8 

• / 

9604 

8D 

DD 

BF 

STA 

$BFDD 

• 9 

9607 

A9 

B3 


LDA 

#$B3 

• / 

9609 

8D 

3F 

B4 

STA 

$B43F 

• / 

960C 

8D 

44 

B4 

STA 

$B4 44 

• 9 

960F 

8D 

68 

B4 

STA 

$B4 68 

• 9 

9612 

8D 

77 

B4 

STA 

$B4 77 

• 9 

9615 

8D 

4E 

B8 

STA 

$B84E 

•9 

9618 

8D 

C5 

CD 

STA 

$CDC5 

• 9 

961B 

8D 

90 

E1 

STA 

$E190 

• 9 

961E 

8D 

AE 

E1 

STA 

$E1AE 

• / 

9621 

AO 

B7 


LDY 

#$B7 

• / 

9623 

8C 

83 

B7 

STY 

$B783 

• / 

9626 

AO 

BC 


LDY 

#$BC 

• 9 

9628 

8C 

F7 

BC 

STY 

$BCF7 

• 9 

962B 

C8 



INY 


• 9 

962C 

8C 

6E 

BB 

STY 

$BB6E 

• 9 

962F 

C8 



INY 


• # 

9630 

8C 

Al 

BE 

STY 

$BEA1 

• 9 

9633 

AO 

C9 


LDY 

#$C9 

• 9 

9635 

8C 

8E 

B7 

STY 

$B78E 

• # 

9638 

8C 

00 

CA 

STY 

$CA00 

• / 

963B 

8C 

07 

CA 

STY 

$CA07 

• ✓ 

963E 

8C 

OE 

CA 

STY 

$CA0E 

* / 

9641 

8C 

15 

CA 

STY 

$CA15 

• / 

9644 

8C 

1C 

CA 

STY 

$CA1C 

• 9 

9647 

8C 

27 

CA 

STY 

$CA27 

* 9 

964A 

8C 

20 

E3 

STY 

$E320 

* 9 

964D 

C8 



INY 


♦ 9 

964E 

8C 

04 

CB 

STY 

$CB04 

• 9 

9651 

A9 

CD 


LDA 

#$CD 

• 9 

9653 

8D 

03 

CE 

STA 

$CE03 

• 9 

9656 

8D 

OE 

CE 

STA 

$CE0E 

* 9 

9659 

8D 

19 

CE 

STA 

$CE19 

♦ 9 

965C 

A9 

CF 


LDA 

#$CF 

• 9 

965E 

8D 

26 

CI 

STA 

$C126 

• 9 

9661 

8D 

4C 

C8 

STA 

$C84C 

• f 

9664 

8D 

77 

CF 

STA 

$CF77 

♦ 9 

9667 

8D 

FO 

CF 

STA 

$CFF0 


* 9 

966A 

8D 

36 

EO 

STA 

$E036 

• 9 

966D 

8D 

6F 

CE 

STA 

$CE6F 

• 9 

9670 

8D 

76 

CE 

STA 

$CE76 

• 9 

9673 

8D 

7D 

CE 

STA 

$CE7D 

• 9 

9676 

8D 

84 

CE 

STA 

$CE84 

• 9 

9679 

A9 

4C 


LDA 

#$4C 

• 9 

967B 

8D 

41 

E4 

STA 

$E441 

• 9 

967E 

AD 

CF 

96 

LDA 

$96CF 

• 9 

9681 

8D 

86 

02 

STA 

$0286 

• 9 

9684 

AE 

DO 

96 

LDX 

$96D0 

• 9 

9687 

8E 

20 

DO 

STX 

$D020 

• 9 

968A 

AC 

DI 

96 

LDY 

$ 96D1 

• / 

968D 

8C 

21 

DO 

STY 

$D021 

• 9 

9690 

4C 

29 

E4 

JMP 

$E429 

• 9 

9693 

18 



CLC 

• 9 

9694 

69 .10 


ADC 

#$10 

• 9 

9696 

91 

FB 


STA 

<$FB),Y 

• 9 

9698 

60 



RTS 

• 9 

9699 

B1 

FB 


LDA 

<$FB),Y 

• 9 

969B 

C9 

AO 


CMP 

#$A0 

• 9 

969D 

90 

07 


BCC 

$96A6 

• 9 

969F 

C9 

CO 


CMP 

#$C0 

• 9 

9 6 Al 

BO 

03 


BCS 

$96A6 

• 9 

96A3 

20 

93 

96 

JSR 

$9693 

• 9 

96A6 

C8 



INY 


• / 

96A7 

C8 



INY 


• 9 

96A8 

60 


RTS 


• 9 

96A9 

A2 

00 


LDX 

#$00 

. 

• 9 

9 6 AB 

AO 

00 


LDY 

#$00 

• / 

96AD 

E8 



INX 


• / 

96AE 

DO 

FD 


BNE 

$96AD 

• / 

96B0 

C8 



INY 


• 9 

96B1 

DO 

FA 


BNE 

$96AD 

• 9 

96B3 

60 



RTS 

• / 

96B4 

9D 

12 

41 

STA 

$4112,X 

* / 

96B7 

44 




• / 

96B8 

44 





• 9 

96B9 

49 

4E 


EOR 

u 

• 9 

96BB 

47 




• / 

96BC 

20 

52 

41 

JSR 

$4152 

♦ 9 

96BF 

4D 

2E 

2E 

EOR 

$2E2E 

• / 

96C2 

50 

4C 


BVC 

$9710 

• 9 

96C4 

45 

41 


EOR 

$41 

• / 

96C6 

53 




• 9 

96C7 

45 

20 


EOR 

$20 

• 9 

96C9 

57 




• 9 

96CA 

41 

49 


EOR 

($49,X) 

• 9 

96CC 

54 




• 9 

96CD 

92 





• 9 

96CE 

00 





• 9 

96CF 

01 

02 


ORA 

($02,X) 

• 9 

96D1 

03 




• 9 

96D2 

A9 

73 


LDA 

#$73 

• 9 

96D4 

AO 

E4 


LDY 

#$E4 

• 9 

96D6 

20 

1E 

BB 

JSR 

$BB1E 

* 9 

96D9 

A2 

00 


LDX 

#$00 

* 9 

96DB 

BD 

E6 

02 

LDA 

$02E6,X 

• 9 

96DE 

FO 

06 


BEQ 

$96E6 

• 9 

96E0 

20 

D2 

FF 

JSR 

$FFD2 

• 9 

96E3 

E8 



INX 


• / 

96E4 

DO 

F5 


BNE 

$96DB 

• 9 

96E6 

86 

CC 


STX 

$CC 

• 9 

96E8 

A5 

CB 


LDA 

$CB 

• 9 

96EA 

A2 

00 


LDX 

#$00 

• 9 

96EC 

86 

C6 


STX 

$C6 


96EE 

C9 

19 


CMP 

#$19 

• 9 

96F0 

FO 

09 


BEQ 

$96FB 

• 9 

96F2 

C9 

27 


CMP 

#$27 

• 9 

96F4 

DO 

F2 


BNE 

$96E8 


96F6 

86 

CF 


STX 

$CF 

• / 

96F8 

6C 

02 

BO 

JMP 

($B002) 

• 9 

96FB 

AO 

AO 


LDY 

#$A0 

• 9 

96FD 

86 

33 


STX 

$33 

• / 

96FF 

84 

34 


STY 

$34 
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9701 86 37 
9703 84 38 


■ 


•' 
• / 
, 




STX $37 
STY $38 
9705 8E 83 02 STX $0283 
9708 8C 84 02 STY $0284 
970B 20 53 E4 JSR $E453 
970E 4C 66 FE JMP $FE66 

9711 12 

9712 20 45 58 JSR $5845 
9715 49 54 . EOR #$54 

Hi -, 





., 9717 

20 

52 

41 

JSR 

$4152 


., 971A 

4D 

20 

50 

EOR 

$5020 


., 971D 

4C 

55 

53 

JMP 

$5355 


., 9720 

3F 




.. 


9721 

20 

28 

59 

JSR 

$5928 


., 9724 

2F 






., 9725 

4E 

29 

20 

LSR 

$2029 


., 9728 

OD 

00 

80 

ORA 

$8000 


• ' : ' . 
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Note per il caricamento, la digi¬ 
tazione ed II trasferimento su di¬ 
sco del programma 

RAM Plus è composto da un breve cari¬ 
catore BASIC (Programma 1) e dal codi¬ 
ce macchina (Programma 2). Per carica¬ 
re ed attivare RAM Plus è sufficiente lan¬ 
ciare il Programma 1. 

Gli abbonati che non dispongono della 
cassetta allegata alla rivista dovranno 
utilizzare MLX (vedi in altra parte della 
rivista) per digitare il secondo program¬ 
ma. Occorrerà seguire questa proce¬ 
dura: 

1. Accendere il computer e digitare: 

POKE643,0:POKE644,148:SYS58260 

(RETURN) 

2. Caricare in memoria MLX (che sarà 
stato precedentemente digitato e salva¬ 
to), e rispondere alle sue richieste circa 
gli indirizzi iniziale e finale con: 
indirizzo iniziale: 38000 

indirizzo finale: 38703 

RAM Plus - Programma 1 


Dopo avere digitato e salvato il program¬ 
ma (con il nome "RAMPLUS.OBJ") trami¬ 
te MLX, si potranno seguire per il carica¬ 
mento le istruzioni date più sopra per i 
possessori di cassetta. 

Volendo trasferire su disco entrambi i 
programmi occorre seguire questa pro¬ 
cedura: il primo, in BASIC, si trasferisce 
normalmente con un LOAD da nastro ed 
un SAVE su disco. Per il secondo occor¬ 
re invece utilizzare MLX con le POKE e 
gli indirizzi di cui sopra. 

Dopo aver digitato questi indirizzi, sullo 
schermo comparirà il valore relativo al¬ 
l'indirizzo iniziale seguito dal cursore di 
MLX; premete SHIFT e L per caricare il 
programma: vi verrà chiesto se volete 
caricare da nastro o disco (scegliete na¬ 
stro) ed il nome del file (digitate il nome 
con cui il programma è registrato sulla 
cassetta). 

Al termine del caricamento ricomparirà 
sullo schermo il valore relativo all'indiriz¬ 
zo iniziale seguito dal cursore di MLX; 
premete SHIFT e S per salvare il pro¬ 
gramma: vi verrà chiesto se volete sal¬ 
vare su nastro o disco (scegliete disco) 


ed il nome del file (digitate il nome con 
cui avete caricato il programma dalla 
cassetta). 

Ricordiamo che, per conoscere il punto 
esatto di inizio dei vari programmi su 
cassetta ed il nome con il quale essi so¬ 
no stati registrati, è sufficiente inserire 
quest'uKima completamente riavvolta 
nel registratore, azzerare il contanastro 
e digitare: 

LOAD— (RETURN) 

Dal momento che sicuramente non esi¬ 
ste sulla cassetta alcun programma di 
nome '*', il computer passerà in rasse¬ 
gna tutti i programmi incontrati visualiz¬ 
zandone il nome con il messaggio: 

FOUND XXXX 


Sarà quindi utile annotarsi su un foglio i 
nomi dei programmi e la relativa posizio¬ 
ne del contanastro (sottrarre tre o quat¬ 
tro unità dal valore corrispondente all'ap¬ 
parizione del messaggio FOUND...). 


10 IF A-0 THEN A-l:PRINT"{WHT)”:LOAD"RAMP 
LUS.OBJ",1,1 : rem 17 

70 SYS 38000 :rem 97 

80 NEW srem 82 


RAM Plus - Programma 2 


38000 :165,056,201, 17 6,208,001, 151 
38006 : 096, 173, 134,002,174,032,217 
38012 : 208,172, 033,208,141,207,069 
38018 :150, 142,208,150,140,209, 105 
38024 :150, 169, 012, 162,000, 133,250 
38030 : 251, 141, 134,002, 142, 032,07 6 
38036 : 208,142,033,208,169, 115,255 
38042 :160,228,032,030, 171, 162,169 
38048 : 000, 189, 180,150,24 0,006, 157 
38054 : 032,210,255,232,208,24 5,068 
38060 : 032, 169, 150, 198,251,016,220 
38066 : 249, 18 9,210,150,201, 128,025 
38072 : 24 0,006,157,167,002,232,220 
38078 : 208,24 3, 169,160, 162, 000, 108 
38084 :160,224,134,251, 134,253,072 


38090 :133, 252, 132,254,161,251, 105 
38096 :12 9,251, 161, 253, 12 9, 253, 104 
38102 : 230,251,230,253, 208,24 2,092 
38108 : 230,252,230,254,208,236, 094 
38114 : 032, 083, 228,169,072, 162,204 
38120 : 235, 141,143,002, 14 2, 14 4,015 
38126 : 002,169, 167,162, 002, 141, 113 
38132 : 022,003, 141,024,003, 14 2,067 
38138 :023, 003, 142, 025, 003, 169, 103 
3814 4 :165,162,24 4,141, 048,003,251 
38150 :14 2, 04 9, 003, 169, 003, 162,022 
38156 : 000, 168,133,252, 134,251,182 
38162 : 032, 153, 150, 192, 012,14 4,189 
38168 : 249, 169, 194,141,018,003, 030 
38174 :169, 160, 133,252,160, 013, 14 9 
38180 : 032, 153, 150, 192,128,14 4,067 
38186 : 24 9, 160, 130, 032,153,150, 14 8 
38192 : 200, 192, 158, 14 4,24 8,169, 135 
38198 :163, 133,252, 160,041,032,067 
38204 :153, 150, 192, 100, 14 4,24 9,024 
38210 :169,137, 133,251,162,000,150 
38216 :161,251,201,032,240,004, 193 
38222 : 201, 07 6,208,021, 160,002,234 
38228 :177,251,201, 160, 14 4,013,006 
38234 : 201, 192, 17 6,009, 032, 14 7,07 9 
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3824 0 :150, 032, 109, 14 9, 032,109, 165 
3824 6 :14 9, 032,109, 149, 07 6,070,175 
38252 :14 9,230,251, 208,014,230,166 
38258 : 252,24 0,Oli, 165,252,201, 211 
38264 : 208,208, 004, 169, 224,133, 04 2 
38270 : 252, 096, 104,104,160,17 6,2 50 
38276 :134,051, 132, 052, 134,055, 17 8 
38282 :132,056, 14 2, 131,002, 14 0,229 
38288 :132, 002, 169,053, 162, 04 7,197 
382 94 :120, 133, 001, 134,000,088,114 
38300 :169,255, 162, 191, 160, 207, 020 
38306 :133, 251,133,253, 134,252, 038 
38312 :132,254,162,000, 161, 251,104 
38318 :129, 253, 198,251, 198, 253, 17 6 
38324 :165, 253,201,255,208, 24 2,224 
38330 :165, 254,201,176,24 0, 006,204 
38336 :198,252, 198,254,208, 230,252 
38342 :141, 190, 181, 141,252, 181,004 
38348 :141, 001, 182, 141, 050, 183, 134 
38354 :141, 058, 183, 141,251, 183, 143 
38360 :141,255, 183, 141,243, 189, 088 
38366 :141,027, 190, 141, 034, 190, 177 
38372 :141,038, 190, 141, 055, 190, 215 
38378 :141,001,253, 141, 113,254, 113 
38384 :169, 164,141,015,237, 169,111 
38390 :169, 141,066, 187, 169, 193, 14 7 
38396 :141, 200, 193, 169, 17 5, 141, 24 7 
384 02 : 216, 191, 141, 221, 191, 169, 107 
384 08 :17 9, 141, 063, 180, 141, 068, 012 
38414 :180, 141, 104,180, 141, 119,111 
38420 :180, 141, 078, 184,141, 197, 173 
38426 : 205, 141, 14 4,225, 141,17 4,032 
384 32 : 225, 160, 183, 14 0, 131,183, 030 
38438 :160,188,140,247,188,200,137 
384 4 4 :14 0, 110, 187,200, 14 0, 161,214 
384 50 :190, 160,201, 14 0,142, 183,04 2 
384 56 :140, 000,202, 14 0,007, 202,235 
384 62 :140, 014,202, 140, 021,202,013 
384 68 :14 0,028, 202, 14 0,039,202,051 
384 74 :14 0, 032,227,200, 14 0,004,04 9 
384 80 : 203, 169,205, 141, 003,20 6,239 
384 86 :141,014,20 6, 141, 025,206, 051 
384 92 :169,207, 141,038,193, 141,213 
384 98 : 07 6,200, 141, 119,207, 141,214 
38504 :24 0,207,141, 054,224,141, 087 
38510 : 111, 20 6,141, 118,20 6, 141, 009 
38516 :125, 20 6, 141,132,206, 169, 071 
38522 : 07 6, 141,065,228, 173,207, 24 4 
38528 :150, 141, 134,002, 17 4,208, 169 
38534 :150, 142, 032,208, 172,209,023 
3854 0 :150, 14 0, 033,208,07 6,041,020 
3854 6 : 228, 024, 105, 016, 14 5, 251, 14 7 
38552 : 096, 17 7,251, 201, 160,14 4,157 
38558 : 007,201, 192, 17 6, 003, 032, 001 
38564 :14 7,150, 200,200, 096, 162, 095 
38570 : 000, 160, 000,232,208,253,255 
3857 6 :200,208,250,096, 157, 018, 081 
38582 : 065, 068, 068, 073, 078, 071, 093 
38588 : 032, 082,065, 07 7,04 6, 04 6, 02 4 
38594 : 080, 07 6, 069, 065,083,069, 12 4 
38600 : 032, 087,065, 073,084,14 6, 17 5 
38606 : 000, 001, 002, 003, 169, 115,240 
38612 :160, 228,032, 030, 187, 162,24 3 
38618 : 000, 18 9, 230, 002,24 0, 006, 117 
38624 : 032,210, 255,232, 208,24 5, 12 6 
38630 :134,204,165,203, 162,000,074 
38636 :134,198,201,025,240,009,019 
38642 : 201,039, 208,24 2, 134,207,24 9 
3864 8 :108, 002, 17 6, 160, 160,134,220 
38654 : 051, 132,052,134,055, 132, 04 2 
38660 : 056, 14 2, 131,002, 14 0,132, 095 
38666 : 002, 032,083,228,07 6, 102, 021 
38672 : 254,018, 032, 069, 088,073, 038 
38678 : 084,032, 082,065, 077,032, 138 
38684 : 080, 07 6, 085,083, 063,032, 191 
38690 : 04 0, 08 9, 04 7,07 8, 041, 032, 105 
38696 -.013, 000, 128,04 9, 054,050, 078 
38702 : 032, 04 9, 054,050, 04 9,052, 07 6 



BIT 


regala 


Le Grandi 
Guide 
di BIT 

Da gennaio c fino a dicembre ’87 
ogni mese Bit vi da' un grande 
appuntamento in edicola con le Grandi 
Guide di Bit: veri manuali di riferimento 
di eccezionale utilità, dedicati al personal 
computer, alla programmazione, ai sistemi 
operativi, ai linguaggi. 

A fine anno possederete una biblioteca 
ricca, aggiornata c completa: per lavorare 
meglio e conoscere più a fondo il vostro 
personal computer. 



Ogni mese 
Bit ti aspetta in edicola 
con la sua Guida. 
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ti eliminati. 


di J.Heaverin 

trad. ed adatt. di S.Colombo 


ROM Plus vi fornisce la possibi¬ 
lità di di Innalzare le prestazio¬ 
ni del vostro C64. ROM Plus mi¬ 
gliora il BASIC 2.0, soprattutto 
per quanto riguarda l'uso del 
disk drive; anche gli utilizzatori 
del registratore a cassette ne 
trarranno tuttavia grandi van¬ 
taggi. 

Avete mai desiderato di possedere un 
BASIC un po’ meno macchinoso? Ad 
esempio, utilizzando sempre il disk dri¬ 
ve, non sarebbe più comodo digitare so¬ 
lo LOAD "NOMEFILE" invece di LOAD 
"NOMEFILE”,8? 

E non sarebbe meglio che l’istruzione 
PRINT FRE(O) restituisse sempre l'esat¬ 
to ammontare di memoria libera invece 
di strani numeri negativi? 

ROM Plus vi offre una serie completa di 
migliorie al BASIC del vostro C64; ecco 
quali: 

- LOAD, SAVE e VERIFY hanno ora co¬ 
me default il disk drive invece dell’unità 
a cassette. Per caricare un programma 
da disco non è più necessario specifica¬ 
re il ',8' dopo il nome del file, mentre per 
caricarlo da nastro occorrerà specifica¬ 
re ’.r. 

Ad esempio, per caricare il programma 
"TEST" da disco, si avrà: 

BASIC normale 
LOAD"TEST,8 (RETURN) 

ROM Plus 

LOADTEST (RETURN) 

mentre per caricare il programma 


TEST da nastro: 

BASIC normale 
LOADTEST (RETURN) 

ROM Plus 

LOADTEST,1 (RETURN) 

- L’istruzione INPUT non inserisce più 
un punto di domanda e uno spazio dopo 
la stringa contenente il testo da visua¬ 
lizzare. 

- I messaggi di errore "REDO FROM 
START e "EXTRA IGNORED" sono sta¬ 


- Le istruzioni GOTO e GOSUB posso¬ 
no ora essere seguite da una variabile 
o da un’espressione. Ad esempio, la 
linea: 

10 GOTO A*10+1000 


è ora una linea perfettamente corretta. 
Questa caratteristica risulta particolar¬ 
mente utile nel caso di subroutine eti¬ 
chettate, come dimostra il seguente 
breve esempio: 
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10 MUOVI-1000:SPARA-2000:PUN- 

TEGG10-3000 

20 GOSUB MUOVI 

30 GOSUB SPARA 

40 GOSUB PUNTEGGIO 

50 GOTO 20 

1000 REM SUBROUTINE DI MOVI¬ 
MENTO 


2000 REM SUBROUTINE DI SPARO 


3000 REM SUBROUTINE CALCOLO 
PUNTEGGIO 


- RESTORE può ora essere seguito da 
un numero di linea, una variabile, o un'e¬ 
spressione. Ciò rende molto più sempli¬ 
ce leggere le istruzioni DATA che parto¬ 
no da un certo valore, senza dovere ne¬ 
cessariamente perdere tempo per leg¬ 
gere anche quelle che non servono. 

- THEN non è più necessario dopo una 
IF, quando si utilizza PRINT o GOSUB. 
Ad esempio, è ora possibile scrivere IF 
A<4 PRINT A. 

- Quando si cerca di ottenere il vabre 
ASCII di una stringa nulla si ottiene ora 
il valore 0 invece del messaggio "ILLE- 
GAL QUANTITY ERROR". Ad esempio: 
A$-~:PRINTASC(A$) 

- L’istruzione FRE ora restituisce sem¬ 
pre un numero positivo, pari all'ammon¬ 
tare di byte liberi. 

- RUN può essere ora seguito da un no¬ 
me di file, per fare in modo che il file in 
esame sia caricato ed eseguito automa¬ 
ticamente (naturalmente solo nel caso 
di programmi attivabili con RUN: non 
funziona se il programma si attiva con 
una SYS). 

- Nella stampa di numeri, essi sono ora 
separati da spazi invece che da caratte¬ 
ri di cursore a destra (importante quan¬ 
do b schermo è già saturo di caratteri). 

- RUN/STOP e RESTORE resetta ora 
entrambi i puntatori allo schermo: ciò si¬ 


gnifica che, se si cambia la posizione 
della memoria di schermo e si preme 
RUN/STOP e RESTORE, sarà ancora 
possibile vedere i caratteri sullo scher¬ 
mo mentre li si digita. 

- PRINT CHR$(15) o CTRL-O passa ora 
in modo maiuscolo anche quando è di¬ 
sabilitata la combinazione di tasti 
SHIFT e Commodore. 

ROM Plus opera queste modifiche al 
BASIC copiandone il contenuto da 
ROM a RAM ed operandovi le modifiche 
necessarie. Naturalmente, nessun so¬ 
ftware è in grado di operare modifiche 
permanenti al oomputer, per cui gli effet¬ 
ti di ROM Plus svaniscono quando si 
spegna il computer o lo si resetta con 
SYS64738. La pressbne di RUN/STOP 
e RESTORE non ha invece effetti su 
ROM Plus. 

Non cercate di riattivare ROM Plus 
quando questo è già attivo: per control¬ 
lare se ROM Plus è attivo, digitate: 

?ASC("*) (RETURN) 

se il computer risponde con 0 invece 
che con un "ILLEGAL QUANTITY ER- 
ROR", avete ROM Plus attivato in me¬ 
moria. 

Note per II caricamento, la digi¬ 
tazione ed II trasferimento su di¬ 
sco del programma 

ROM Plus è composto da un breve cari¬ 
catore BASIC (Programma 1 ) e dal codi¬ 
ce macchina (Programma 2). Per carica¬ 
re ed attivare ROM Plus è suffbiente 
lanciare il Programma 1. 

Gli abbonati che non dispongono della 
cassetta allegata alla rivista dovranno 
utilizzare MLX (vedi in altra parte della 
rivista) per digitare il secondo program¬ 
ma. Occorrerà rispondere alle domande 
di MLX con: 


indirizzo iniziale: 49152 
indirizzo finale: 49583 


Dopo aver digitato e salvato il secondo 
programma con il nome di “ROM- 
PLUS.OBJ", sarà sufficiente caricare e 
dare il RUN al primo programma. 
Volendo invece trasferire su disco en¬ 
trambi i programmi occorre seguire que¬ 
sta procedura: il primo, in BASIC, si tra¬ 
sferisce normalmente con un LOAD da 
nastro ed un SAVE su disco. Per il se¬ 
condo occorre invece utilizzare MLX 
con gli indirizzi di cui sopra. 

Dopo aver digitato questi indirizzi, sullo 
schermo comparirà il vabre relativo al¬ 
l'indirizzo iniziale seguito dal cursore di 
MLX; premete SHIFT e L per caricare il 
programma: vi verrà chiesto se volete 
caricare da nastro o disco (scegliete na¬ 
stro) ed il nome del file (digitate il nome 
con cui il programma è registrato sulla 
cassetta). 

Al termine del caricamento ricomparirà 
sullo schermo il valore relativo all’indiriz¬ 
zo iniziale seguito dal cursore di MLX; 
premete SHIFT e S per salvare il pro¬ 
gramma: vi verrà chiesto se volete sal¬ 
vare su nastro o disco (scegliete disco) 
ed il nome del file (digitate il nome con 
cui avete caricato il programma dalla 
cassetta). 

Ricordiamo che, per conoscere il punto 
esatto di inizio dei vari programmi su 
cassetta ed il nome con il quale essi so¬ 
no stati registrati, è sufficiente inserire 
quest'ultima completamente riavvolta 
nel registratore, azzerare il contana- 
stro e digitare: 

LOAD’*" (RETURN) 

Dal momento che sburamente non esi¬ 
ste sulla cassetta alcun programma di 
nome il computer passerà in rasse¬ 
gna tutti i programmi incontrati visualiz¬ 
zandone il nome con il messaggb: 

FOUND XXXX 


Sarà quindi utile annotarsi su un foglio i 
nomi dei programmi e la relativa posizb- 
ne del contanastro (sottrarre tre o quat¬ 
tro unità dal vabre corrispondente al¬ 
l’apparizione del messaggio FOUND...). 


ROM Plus - Programma 1 


10 IF A=0 THEN A=1:PRINT"(WHT}":LOAD"ROMP 
LUS.OBJ",1,1 : rem 31 

20 PRINT"(CLR){ 10 GIU’)ROM PLUS ATTIVATO 

:rem 60 

70 SYS 49152 : rem 107 

80 NEW : rem 82 


ROM Plus - Programma 2 


4 9152 : 07 6, 028, 192, 165, 003, 141, 093 
4 9158 : 002, 003, 165, 004,141,003, 068 
4 9164 : 003, 169,055, 133,001,165,026 
4 9170 : 005, 141,024,003, 165,006, 106 
4 9176 :141,025,003,096,173,002,208 


4 9182 : 003,133,003,173,003,003,092 
4 9188 :133,004,173,024,003,133,2 50 
4 9194 : 005, 173,025,003,133,006, 131 
4 9200 :169, 160,141,072,192,141,155 
4 9206 : 075,192,160,000,140,071,180 
4 9212 :192,140,07 4,192,140,101,131 
49218 :192,140,104,192,185,000,111 
4 922 4 :192,153,000,192,200,208,24 9 
4 9230 : 247,238,072,192,238,075,116 
4 9236 :192,174,072,192,224,192,106 
4 9242 : 208,234,169,224,141,102,144 
4 924 8 :192,141,105,192, 185,000,143 
4 9254 : 000,153,000,000,200,208,151 
4 9260 :247,238,102,192,238,105,206 
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È Jackson 

la biblioteca che fa testo 

in Informatica 

SISTEMI OPERATIVI 
MS-DOS 

C. De Voney 
MS-DOS LA GRANOE GUIOA 

Cod. GY273 334 pag. L. 45.000 

L. Suglia 

MS-DOS E PC DOS 
LO STANOARD IBM 

Cod. 094D 128 pag. L 7.000 

V. King - D. Waller 

PC-OOS 

Cod. D12H 64 pag. L. 8.500 

V. King - D. Waller 

MS-OOS 

Cod. D19H 56 pag. L. 8.500 

UNIX 

M. Matteuzzi - P. Peiiizzardi 

AMBIENTE UNIX 

Cod. 543P 200 pag. L. 19.000 
R. Thomas - J. Yates 

UNIX LA GRANDE GUIDA 

Cod. G223 pag. L. 70.000 

L. Blackburn - M. Taylor 

UNIX 

Cod. 009H 68 pag. L 8500 

CP/M 

R. Zaks 

DP/M CON MP'M 

Cod. 51OP 320 pag. L. 29.000 

E. Napoli 

CP/M 

Il "SOFTWARE BUS - 

Cod. 093D 112 pag. L. 7.000 

L. Blackburn - M. Taylor 

CP/M 

Cod 011H 72 pag. L. 8.500 

Puoi trovare i libri Jackson nelle migliori 
librerie, oppure acguistarli con questo coupon. 


| Sono abbonato a . | 

. ed ho diritto allo sconto del 20% sino al 28/02/87 . 

| Se siete interessati al catalogo o all'acquisto | 
di alcuni libri potete ritagliare la cedola e 
I inviarla a: 

' Gruppo Editoriale Jackson S.p.A., ' 

I Via novellini. 12 - 20124 Milano I 

| (l'invio contrassegno sara gravato da 
. L. 3000 di spese) 

I Catalogo □ Libro □ 

■ Titolo _:_ ■ 


Nome e Cognome 


Via _ 

Citta_cip. 

Tel _ 


: 192 
49272 Ì169* 
49278 :234, 
49284 : 136, 
49290 :160, 
49296 :168, 
49302 :169, 
49308 :193, 
49314 :141, 
49320 :169, 
49326 :193, 
49332 :141, 
49338 : 013, 
49344 : 043, 
49350 :141, 
49356 : 032, 
49362 :160, 
49368 :169, 
49374 :015, 
49380 :141, 
49386 :002, 
49392 :003, 
49398 :002, 
49404 :000, 
49410 : 248, 
49416 :034, 
49422 :225, 
49428 :044, 
49434 :032, 
49440 :234, 
49446 :168, 
49452 :052, 
49458 :013, 
49464 :144, 
49470 :242, 
49476 :141, 
49482 :001, 
49488 :168, 
49494 :032, 
49500 :233, 
49506 :136, 
49512 :032, 
49518 :003, 
49524 :240, 
49530 :07 6, 
49536 :07 6, 
49542 :17 6, 
49548 :032, 
49554 :200, 
49560 :255, 
49566 :108, 
49572 :079, 
49578 :082, 


174.102.192, 
008,141,218, 
160,006,153, 

208.250.169, 
168,169,125, 
169,193,141, 
080,141,036, 
141,037,160, 
043,169,141, 
104,141,044, 
141,045, 169, 
012,173,169, 
173,141,252, 
141,142,179, 

143.179.169, 

160.169.193, 
169,063,141, 
005,141,143, 
141,080,236, 

124.169.169, 
003,169,193, 
096,169,004, 
169,000,160, 
212,136,016, 
108,005,000, 
208,028,040, 
169,000,166, 
032,131,193, 
144,255,032, 
234,234,234, 
040,076,113, 
229,050,162, 
133,098,132, 
056,076,073, 
141,024,003, 
025,003,169, 
108,003,000, 
240,251,032, 
019,166,056, 
001,164,096, 
133,065,132, 
121 , 000 , 201 , 
076,055,169, 
249,201,153, 
050,169,032, 
247,183,032, 
008,134,045, 
051,165,096, 

185.161.193, 
208,247,040, 
000,003,013, 
065,068,032, 
079,082,076, 


208,236,194 
225,169,026 
252,171,078 
032,141,044 
141,161,038 
162,168,121 
160,169,137 
169,076,164 
141,179,208 
169,169,196 
169,145,012 
000,141,048 
172,169,082 
169,193,035 
005,141,208 
141,033,164 
198,170,087 
183,169,002 
169,254,093 
061,141,009 
141,003,233 
141,136,021 
025,153,243 
250,133,231 
008,201,060 
032,212,050 
043,164,013 
169,000,077 
215,170,106 
076,122,142 
168,165,000 
000,134,159 
099,162,175 
188,169,250 
169,192,065 
053,133,080 
076,029,035 
125,193,065 
165,095,107 
176,001,251 
066,096,214 
137,208,035 
201,141,243 
240,245,164 
138,173,248 
213,255,110 
132,046,163 
160,255,131 
032,210,103 
162,128,168 
013,076,115 
069,082,047 
079,070,126 


La rubrica INPUT/OUTPUT a gratuita 
«paria a tutti i Fattori Chi desidera com¬ 
prar#. vendere o cambiar* hardware o 
•otturar# 

INPUT/OUTPUT 

□ COMPRO □ VENDO Q CAMBIO 

□ VIC 20 □ C 16 □ C64 □ PERIF. Q SOFTWARE 
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Nome .Cognome . 

Via . C A P 

Città .Tel . 

V___ J 
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di E. Marini 

Ecco un interessante program¬ 
ma di utilità per i possessori di 
unità a dischi: sono consentite 
tutte le principali operazioni di 
editing del disco, come la lettu¬ 
ra e scrittura di singoli blocchi, 
la visualizzazione e modifica 
della BAM, e molte altre 
opzioni. 

Il programma è scritto interamente in 
BASIC, e non richiede quindi operazioni 
particolari di caricamento; prima di atti¬ 
vare il programma è tuttavia consigliabi¬ 
le verificare che il disk drive sia collega¬ 
to ed acceso, e che contenga il dischet¬ 
to da analizzare. 

Il programma infatti, dopo aver doman¬ 
dato il numero di periferica (normalmen¬ 
te 8 per il disk drive) ed il numero del dri¬ 
ve (normalmente 0 per unità a disco sin¬ 
golo), controlla che il drive contenga un 
dischetto e ne visualizza il nome segui¬ 
to dal codice ID che lo identifica. 

Anche se il programma si rivolge ad 
utenti già un po' esperti nella struttura e 
nel formato dei dischetti, anche l'utente 
inesperto ne può trarre utili conoscen¬ 
ze facendo esperimenti di lettura e scrit¬ 
tura su dischetti non contenenti dati im¬ 
portanti. 

Raccomandiamo comunque di effettua¬ 
re sempre una copia di back-up del di¬ 
schetto che si desidera analizzare e 
modificare tramite Disk Utility, in quan¬ 
to è molto facile - soprattutto per i princi¬ 
pianti - commettere qualche errore nella 
scrittura dei blocchi, con il risultato di 
rendere non più utilizzabili i dati memo¬ 
rizzati sul dischetto stesso. 

Ai lettori che non avessero familiarità 
con la struttura interni dei dischi, consi¬ 



gliamo la lettura della serie di articoli "I- 
niziare con un sistema a dischi" da noi 
precedentemente pubblicata. 

Il menu principale del programma con¬ 
sente innanzi tutto di leggere un blocco 
da disco, e di ottenerne la visualizzazio¬ 
ne sotto forma di codici ASCII (nel for¬ 
mato standard degli assemblatori/disas¬ 
semblatori). 

Il blocco letto dal disco viene memoriz¬ 
zato in un buffer temporaneo nella RAM 
del computer. 

Sperimentate queste due opzioni su 
tracce e settori casuali di un dischetto 
contenente vari programmi (ricordiamo 


che la traccia 18 contiene la directory) 
per vedere come questi vengono memo¬ 
rizzati: in modo non molto diverso da 
quanto lo siano nella RAM del com¬ 
puter! 

La terza opzione del menu consente di 
modificare il contenuto di un blocco, 
una volta che questo sia stato letto tra¬ 
mite la prima opzione: il contenuto del 
blocco viene visualizzato con il numero 
progressivo del primo byte di ogni riga 
nella parte sinistra dello schermo. Per 
modificare un singolo byte (chiamato 
dal programma con la lettera T) è suffi¬ 
ciente inserirne il numero (i) e nuovo 
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contenuto in risposta alle domande po¬ 
ste dal programma. 

Se si desidera modificare un gruppo di 
byte in sequenza, oppure memorizzare 
direttamente una stringa, è sufficiente 
inserire il numero del primo byte seguito 
da un asterisco: il programma chiederà 
di inserire, a seconda del caso, il nuovo 
valore dei byte oppure la stringa da me¬ 
morizzare. 

Il blocco letto può essere trasferito dal 
buffer temporaneo in una precisa zona 
della RAM per ulteriori elaborazioni tra¬ 
mite un Monitor (come il SuperMonitor) 
già pubblicato: viene proposto come in¬ 
dirizzo di default il valore 49152 corri¬ 
spondente all'inizio di una zona di RAM 
da 4 Kbyte separata dalla RAM BASIC. 
L'opzione 5 permette il procedimento 
opposto: il trasferimento verso il disco 
del contenuto di una zona di RAM. 
L'opzione 6 consente di visualizzare la 
BAM (Block Availability Map), che con¬ 
sente di osservare quali tracce sono oc¬ 
cupate da dati, e quali sono invece oc¬ 
cupate da byte costituenti programmi o 
dati. 

Tramite la medesima opzione è anche 
possibile agire sul contenuto della BAM 
modificando un settore di una particola¬ 
re traccia: viene visualizzato il contenu¬ 
to della traccia e richiesto il numero di 
settore da modificare come allocato (o 
non allocato nel caso già lo sia). 
L'opzione 8 consente di visualizzare 
tutti i link di una traccia: i dati e program¬ 
mi non vengono memorizzati su disco 

Disk Utility 


in tracce e settori contigui, ma su trac¬ 
ce spesso distanti tra loro. I link per¬ 
mettono di risalire aH’insieme di tracce 
su cui sono memorizzati i dati relativi al 
programma o al dato in esame. 

E' possibile visualizzare con quali bloc¬ 
chi sono collegati i 18 blocchi di una 
traccia, oppure seguire il tracciato di 
collegamento sul disco che parte da un 
singolo settore della traccia. 

L'opzione 7 consente di inviare al drive 
i comandi di inizializzazione, di convali¬ 
da, di formattazione, di cambiamento di 
drive (attenzione!, Solo per sistema 
Dual-Drive con i drive 0 e 1), di visualiz¬ 
zazione del contenuto della directory; 
consente inoltre di cambiare il numero 
di periferica (da 8 a 9 se si hanno colle¬ 
gati due separate unità a dischi), di vi¬ 
sualizzare il messaggio di stato su 
eventuali errori di lettura e scrittura su 
disco, di verifica sulla presenza di even¬ 
tuali blocchi difettosi (attenzione: que¬ 
sta opzione scrive e legge su disco, 
cancellando eventuali dati presenti!), ol¬ 
tre che di effettuare il back-up. 

E' da notare che l'opzione di back-up è 
possibile solo con sistema a due drive 
(unità 0 e 1), ed effettua una copia del 
disco blocco per blocco. 

L'opzione 9 del menu principale consen¬ 
te, anche se in modo un po’ laborioso vi¬ 
sta la difficoltà dell'operazione, di recu¬ 
perare file accidentalmente cancellati 
dal disco; questa operazione consiste 
in: 

- lettura delle tracce della directory fino 


a localizzare il nome del file cancellato 
che si desidera recuperare; 

- visualizzazione dei link di tutti i bloc¬ 
chi del file, e confronto con quello pre¬ 
sente nella directory; 

- lettura e visualizzazione della BAM 
per il controllo della effettiva disponibili¬ 
tà di tutti i blocchi necessari; 

- modifica da parte dell'utente del 'ma¬ 
gic byte' nella directory in modo che es¬ 
so indichi il tipo di file: 

magic byte tipo di file 

129 SEQ 

130 PRG 

131 USR 

132 REL 

- riscrittura su disco del blocco cosi mo¬ 
dificato e validazione del dischetto. 

Tutte queste operazioni sono assistite 
da istruzioni che compaiono a video, e 
cercano di seguire l'utente in queste 
operazioni passo dopo passo. 

Dal momento che il recupero dei file can¬ 
cellati inavvertitamente è un problema 
alquanto sentito, mentre le operazioni 
da effettuare per ottenerlo sono abba¬ 
stanza complesse, pubblicheremo pre¬ 
sto un programma che esegue automati¬ 
camente il recupero di tali file. 

L'utilizzo di Disk Utility può aiutare molti 
ad apprendere cose nuove sul proprio 
drive e sulla struttura dei dischetti, ol¬ 
tre a rappresentare un valido strumen¬ 
to per l'utente più esperto. 


100 IFPEEK(0)=47THENPOKE56,7*16:POKE55,0 : 
CLR:REM BUFFER PER SALVATAGGIO BLOCCH 
I :rem 90 

110 IFPEEK (0) O47THENP0KE53,7*16 :POKE52,0 
:CLR :rem 173 

120 F1=07:F3=00:F5-06:REM COLORI : rem 60 

130 POKE 53272,23 : rem 87 

140 CRT=1024:CP$="C64":IF PEEK(0)<>47 THE 
N CRT=32768:CP$="PET" : rem 175 

150 BS=CRT+45:GOSUB3710 : rem 10 6 

160 : :rem 209 

170 M$(l)="{ 1 SH DETTURA DI UN BLOCCO" 

:rem 143 

180 M$(2)="{ 1 SH V)ALORI { 1 SH A) 

{ 1 SH S) { 1 SH CU 2 SH I) DEL BLOCC 
O" :rem 203 

190 M$(3)«"( 1 SH MJODIFICA DEL BLOCCO LE 
TTO" : rem 219 

200 M$(4)="( 1 SH CJOPIA IN { 1 SH R) 

{ 1 SH A)( 1 SH M) DEL BLOCCO LETTO" 

: rem 251 

210 M$ (5) =" ( 1 SH SCRITTURA BLOCCO DA 
( 1 SH R)| 1 SH A|| 1 SH M) A DISCO" 

:rem 150 

220 M$(6)="( 1 SH B }LOCK { 1 SH A)VAILABI 
LITY ( 1 SH M) AP (( 1 SH B)( 1 SH A) 



{ 1 SH M))" 

: rem 

242 

230 

M$(7)="( 1 SH 

CJOMANDI AL DRIVE” 

: rem 

145 

240 

M$(8)="{ 1 SH 

T)RACCIAMENTO BLOCCHI" 
:rem 255 

250 

M$(9)-"{ 1 SH 

R)ECUPERO FILE" 

: rem 

24 

260 

REM MENU 

: rem 

177 

270 

REM" (< 4 U>] 

: rem 

127 

280 

POKE53280,FI 

: rem 

110 


290 CLOSE15:OPEN15,DV,15:GOSUB6110:PRINT" 
(CLR)":X$="{ 1 SH M)( 1 SH A)( 1 SH I 
{ 1 SH N)":X=30:GOSUB6050 : rem 212 
300 PRINT"(HOME}"HD$ : rem 39 

310 F0RI=1T09:PRINT"(GIU'}(RVS)"I"(OFF) :" 

M$(I) :NEXT : rem 25 

320 PRINTS0$:PRINTVC$"PREMI (RVS)( 1 SH R 
{ 1 SH E)( 1 SH T)| 1 SH U|| 1 SH R) 

{ 1 SH N)(OFF) PER USCIRE(HOME)"TC$ 

: rem 18 

330 GOSUB480:IFIN$=CR$THEN3700 : rem 37 

340 IFIN$="(FI)"THEN300 :rem 169 

350 IFIN$="{F3)"THEN300 : rem 171 

360 IFIN$="{F5)"THEN300 :rem 173 

370 PRINT"(HOME)(GIU’}":FORI«lTOIN:PRINT" 
{ 2 GIU')";:NEXT:PRINT"( 4 DES)(RVS)" 
M$(IN) :FORT9=lTO300:NEXT : rem 55 

380 ONIN+1GOSUB5560,540,910,1130,1520,162 
0,1750,2570,2820,3310 :rem 190 

390 GOTO280 :rem 111 

400 F1=-(F1 + 1)*(F1<15) :POKE53281,FI :POKE5 
3280,FI:RETURN :rem 100 

410 F3=-(F3+1)*(F3<15):TC$«F3$(F3):PRINTT 
C$; :rem 138 

420 HD$«S0$+CR$+VC$+MH$+"DEVICE "+MID$(ST 
R$(DV),2)+TC$+CR$+S0$:RETURN:rem 143 
430 F5=-(F5+1)*(F5<15):VC$=F5$(F5) 

:rem 219 

440 GOTO420 :rem 103 

450 REM GET : rem 93 

4 60 REM" [< 3 U>] : rem 200 

470 PRINTVCS"(GIU')(RVS){ 1 SH R|| 1 SH E 
{ 1 SH T)| 1 SH U|| 1 SH R)| 1 SH N) 
(OFF) CONTINUA"TC$ : rem 218 

480 GETIN$:IFIN$<>""THEN480 :rem 68 

490 GETIN$:IFIN$-""THEN490 : rem 9 
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500 

IFIN$="{FI}"THENGOSUB400 

: rem 

40 

510 

IFIN$="{F3}"THENGOSUB410 

: rem 

43 

520 

IFIN$="{F5}"THENGOSUB430 

: rem 

47 

530 

IN=VAL(IN$) :GOSUB6190 : RETURN:rem 

255 

540 

REM LEGGE BLOCCO NEL COMPUTER 


550 


: rem 

225 

REM"[< 24 U>] 

: rem 

224 

560 

Y9=0 

: rem 

154 

570 

CLOSE3:CLOSE15:OPEN15,DV,15 

:OPEN3, 

DV, 


3,"#":GET#3,BN$ :BN=ASC(BN$) 

: DC=3 



: rem 6 4 

580 BN$=MID$(BN$,2) : rem 239 

590 PRINT#15, "B-P" ;DC;1:PRINT"{CLR}" 

:rem 175 

600 FORK=OTOIO :PRINT#3,K$;:NEXT : rem 165 
610 PRINT"{CLR}{ 8 GIU'}"S0$ : rem 42 

620 IFY9THENPRINT" {RVSH 1 SH T}{ 1 SH R) 
I 1 SH A)| 2 SH C}( 1 SH I)| 1 SH A}, 

{ 1 SH SU 1 SH E){ 2 SH T}{ 1 SH 0} 

{ 1 SH R}( 1 SH E){OFF} "T","S:G0T064 
0 :rem 202 

630 INPUT"{RVS}{ 1 SH T}{ 1 SH R}| 1 SH A 
1 2 SH C}{ 1 SH I}| 1 SH A),{ 1 SH S) 

{ 1 SH E}{ 2 SH T){ 1 SH 0)( 

{ 1 SH E}{OFF}{ 3 SPAZI)[<+>] 

{ 3 SIN}";T S 

640 PRINT#15,"B-R";DC;DR;T;S 
650 PRINT#15,"B-P";DC;0 
660 GET#3,Z$:IFZ$=""THENZ$=CZ$ 

670 C(0)=ASC(Z$):GOSUB830 
680 PRINTVCS"{HOME}{RVS}{ 1 SH P 
{ 1 SH T}| 1 SH U)| 1 SH R)| 


690 

700 

710 

720 

730 

740 

750 


1 ) ) ; 


GET#3,B$:IFB$=""THENB$=CZ$ 
C(I)=ASC(B$) 

POKEBS+J,C(I):POKENN+J,F3 
GETA$:IFA$<>""THENGOSUB790 
J=J+1:NEXT 


1 SH 

•1 

R} 

: rem 

229 

: rem 

145 

: rem 

13 

: rem 

239 

: rem 

153 

i}{ 1 

SH E 

1 SH 

N} 

))STR$(C( 

: rem 

247 

P " ; DC 

; I 

: rem 

53 

: rem 

162 

: rem 

64 

: rem 

250 

: rem 

26 

: rem 

65 


:rem 29 

760 Y9=0:IFC(0)=0THENRETURN : rem 165 

770 INPUT" {CLR} { 4 GIU’M 1 SH L}{ 1 SH E 
I 2 SH GII 1 SH O) { 1SH P}{ 1 SH R| 
{ 1 SH 0}( 2 SH S}{ 1 SH I)| 1 SH H) 

{ 1 SH A} { 1 SH T}{ 1 SH R}| 1 SH A} 
{ 2 SH C}{ 1 SH I}{ 1 SH A}/{ 1 SH S) 

{ 1 SH E}{ 2 SH T}. N{ 3 SIN}";IN$:IF 

IN$<>"S"THENRETURN : rem 120 

780 T-C(0) :S=C(1) :Y9=l:GOTO570 : rem 204 

790 PRINTVCS"{HOME}{ 14 GIU’}{RVS} 

{ 1 SH B}{ 1 SH L}{ 1 SH 0}{ 2 SH C| 

{ 1 SH 0}{SPAZI){ 1 SH N}{ 1 SH 0} 

{ 1 SH N}{SPAZI}{ 1 SH C}{ 1 SH A} 

{ 1 SH R|{ 1 SH I}{ 1 SH C}{ 1 SH A) 

{ 1 SH T)| 1 SH O){SPAZI}{ 1 SH C) 

{ 1 SH 0}{ 1 SH M}( 1 SH P}{ 1 SH L} 

{ 1 SH E}{ 1 SH T}{ 1 SH A}{ 1 SH M} 

{ 1 SH E}{ 1 SH N}{ 1 SH T}{ 1 SH E}" 

TC$ :rem 141 

800 INPUT"..{ 1 SH C}{ 1 SH 0}{ 1 SH N} 

{ 1 SH T}{ 1 SH I}{ 1 SH N}{ 1 SH U) 

{ 1 SH 0} { 1 SH N}{ 1 SH E}| 1 SH L) 
{ 1 SH C}{ 1 SH A}{ 1 SH R}| 1 SH I} 

{ 1 SH C}{ 1 SH A}{ 1 SHM|| 1 SH E} 

{ 1 SH N)( 1 SH T)| 1 SH 0} 

{ 3 SPAZI}N{ 3 SIN}";N$:IFN$="N"THENI 
-256 :rem 106 

810 PRINT"{HOME}{ 14 GIU'}{ 37 SPAZI}"TC$ 




: rem 

38 

820 

PRINT"{ 33 SPAZI}":RETURN 

: rem 

133 

830 

REM C(0)/C(1) 

: rem 

55 

840 

REM"[< 9 T>] 

: rem 

93 

850 

PRINTSDS:PRINT#15,"B-P";3;l 

: rem 

62 

860 

GET#3,B$:IFB$=""THENB$=CZ$ 

: rem 

169 

870 

C(1)=ASC(B$) 

: rem 

47 

880 

IFC(0)=OTHENPRINTSD$:PRINT"{ 

1 SH 

U} 


{ 1 SH L}{ 1 SH T)| 1 SH 1}{ 

1 SH 

M} 


{ 1 SH A} { 1 SH T}{ 1 SH R}{ 1 SH A} 
{ 2 SH C){ 1 SH I}{ 1 SH A}": RETURN 

:rem 63 

890 PRINTSDS:PRINT"{ 1 SH P}{ 1 SH R} 

{ 1 SH 0)| 2 SH S}{ 1 SH I}{ 1 SH M| 

{ 1 SH A} { 1 SH T}{ 1 SH R}| 1 SH A} 


900 

910 

920 

930 

940 


950 

960 


970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 


1100 


1110 

1120 

1130 

1140 

1150 


1160 


1170 


( 2 SH C}{ 1 SH I}( 1 SH A}="C(0):PRI 
NT"{ 1 SH P}{ 1 SH R]| 1 SH 0} 

{ 2 SH S){ 1 SH I)| 1 SH M}{ 1 SH 0} 

{ 1 SH S}{ 1 SH E|| 2 SH T}{ 1 SH 0} 

{ 1 SH R}| 1 SH E}="C(1) : rem 9 

NT=C(0) :NS=C(1) : RETURN : rem 51 

REM STAMPA ASCII : rem 173 

REM"{< 11 U>] : rem 137 

IJ-0:11=255:PRINT"{CLR}":HX=0 

:rem 38 

PRINT"{CLR}{ 2 GIU'}{RVS}0{OFF}: 

{ 1 SH D}{ 1 SH E}{ 1 SH C}{ 1 SH I) 

{ 1 SHM|| 1 SH A}| 1 SH L}{ 1 SH E}" 

:PRINT"{ 2 GIU'}{RVS}1{OFF}:{ 1 SH H) 
{ 1 SH E}{ 1 SH X)INPUT"{ 2 GIU'} 

{ 3 SPAZI}0{ 3 SIN}";IN :rem 15 

PRINT"{CLR}":IF IN THEN HX=l:rem 159 
PRINTVCS"{HOME}{RVS}{ 1 SH R}{ 1 SH E 
{ 1 SH T}{ 1 SH UH 1 SH R){ 1 SH N} 
{OFF}=FINE:{RVS}{ 1 SH S}{ 1 SH P} 

{ 1 SH A)( 1 SH Z}{ 1 SH I)| 1 SH 0) 
{OFF}=PAUSA:{ 2 SPAZI}"H$(HX);TC$:PRI 
NTS0$:EE$="{OFF} {RVS}" : rem 150 

Z1=32:Z2=223:Z3=127:Z4=160:P=0 


: rem 152 

Y0$="{RVS}"+TC$+CL$:Y1$=VC$+"{SU} 
{RVS}":Y2$="{OFF}:->"+TC$:C9=1 

:rem 68 

FORI=OTOIISTEP8:Y$=Y1$+RIGHT$(" 

{ 2 SPAZI}"+STR$(I),3)+Y2$:E0$=EE$ 

:rem 197 

PRINTYOS:PRINTY$;:FORJ=0TO7:H=I+J:C5 
=C(H):C6=C5 : rem 220 

IF(C5<Z10RC5>Z2)OR(C5>Z3ANDC5<Z4)THE 
NC6=32 :rem 88 

E0$=E0$+CHR$(C6) : rem 40 

E$=RIGHT$("{ 3 SPAZI}"+STR$(C5),3):I 
F HX THEN M$="":M=C5:GOSUB4390:E$=" 
"+M$ : rem 33 

PRINTRS(P)E$R$(1-P);;P=1-P:NEXT 

:rem 112 

GETA$:IFA$=""GOTO1080 : rem 188 

IFA$=CHR$(13)THENII=I: 1=255 : rem 81 

IFA$=CHR$(32)THENGOSUB480:GOTO1050 


; rem 52 

PRINTEOS:NEXT:PRINTCL$:PRINTCL$:PRIN 
TCL$:PRINTCL$ : rem 80 

PRINT"{ 4 SU}"SO$:PRINTVC$"{ 1 SH T} 
I 1 SH R}{ 1 SH A}{ 2 SHC}{ 1 SH I) 
{ 1 SH A},{ 1 SH S}{ 1 SH E}{ 2 SH T 
( 1 SH 0}{ 1 SH R}{ 1 SH E} { 1 SH C 
{ 1 SH 0}{ 2 SH R}{ 1 SH E}{ 1 SH N} 
{ 1 SH T)| 1 SH E}="T",";S;TC$ 

:rem 126 


PRINT"{ 1 SH P}{ 1 SH R)| 1 SH 0} 

{ 2 SH S}{ 1 SH I}{ 1 SH M}{ 1 SH A} 
SH T)( 1 

1 SH 1}{ 

2 SH T}{ 

"NT","NS 


{SPAZI}{ 1 
{ 2 SH C)( 

{ 1 SH E}{ 

{ 1 SH E}= 

IFIJ=OTHENGOSUB45Ò 
RETURN 

REM MODIFICA BLOCCO 
REM"[< 12 U>] 

PRINT"{CLR}{ 1 SH I){ 
{ 1 SH C}{ 1 SH 0)| 1 
{ 1 SH C}( 

{ 1 SH C)( 

{SPAZI}{ 1 
{ 1 SH SII 
{ 1 SH B}{ 

{ 1 SH 0} { 

{ 1 SH A}'" 


SH R}{ 1 SH A) 

1 SH A),{ 1 SH S 
1 SH 0}{ 1 SH R} 
:rem 218 
:rem 154 
: rem 164 
:rem 151 
:rem 108 
1 SH L} 

SH D}( 1 SH I) 

1 SH E} { 1 SH A){ 1 SH S 

2 SH 1} ( 1 SH D){ 1 SH I 
SH C}{ 1 SH 1}{ 1 SH A) 

1 SH C}{ 1 SH U){ 1 SH N} 

1 SH L}{ 1 SH 0){ 2 SH C} 
1 SH S)| 1 SH A}{ 1 SH R 

: rem 3 

PRINT"{GIU*}{ 1 SH V}{ 1 SH 1} 

{ 1 SH S)( 1 SH U)| 1 SH A}{ 1 

2 SH Z){ 1 SH A}{ 1 
{ 1 SH E}{ 1 SH S) 

1 SH M)| 1 SH P)| 1 SH 1} 
.. C(0)...C(255)." : rem 51 

PRINT"(GIU'}{ 1 SH P}{ 1 SH U} 

{ 1 SH 0)1 1 SH 1} { 1 SH M}{ 1 SH 0 
1 SH I}{ 1 SH F}{ 1 SH I) 
1 SH A}{ 1 SH R}{ 1 SH E} 
1 SH GII 1 SH N){ 1 SH 1} 
SH I}{ 1 SH L) | 1 SH B) 

1 SH 0}( 2 SH C}{ 1 SH 0) 


SH I)( 
SH 0} . 
SH E} { 
SH 0} 


SH L} 
SH T} 


1 SH D}( 
{ 1 SH C|{ 
{ 1 SH 0}{ 
C(I) . { 1 
{ 1 SH L}{ 
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{ 3 SPAZI}" : rem 58 

1180 PRINT"{GIU'}{ 1 SH M}{ 1 SH 0} 

{ 1 SH D)( 1 SH I}{ 1 SH F}{ 1 SH 1} 

{ 1 SH C)| 1 SH A}{ 1 SH T)| 1 SH 0} 

{ 1 SH Vii 1 SH E|( 2 SH R}{ 1 SH A 

' I 1 SH S}( 1 SH C)| 1 SH R| 

( 1 SH I|{ 2 SH T)| 1 SH 0| { 1 SH S 

{ 1 SH U) { 1 SH D|| 1 SH IH 1 SH S 

{ 1 SH C}{ 1 SH 0}" : rem 244 

1190 PRINT"{GIU'H 1 SH N}{ 1 SH E} 

I 2 SH L)| 1 SH A} | 1 SH T)| 1 SH R 
{ 1 SH A|( 2 SH C|| 1 SH I}{ 1 SH A} 

{ 1 SH S}{ 1 SH E)| 2 SH T|| 1 SH 0} 

{ 1 SH R|| 1 SH E} { 1 SH S}{ 1 SH E 
{ 1 SH L]| 1 SH E){ 1 SH Z}{ 1 SH 1} 

{ 1 SH 0}{ 1 SH N}{ 1 SH A}{ 1 SH T| 

{ 1 SH I}." : rem 215 

1200 PRINT"{GIU'}{ 1 SH P}{ 1 SH E) 

I 1 SH R| | 1 SH I)| 1 SH N|| 1 SH S 
{ 1 SH E|{ 1 SH R|{ 1 SH I}{ 1 SH R| 

{ 1 SH E} { 1 SH U}{ 1 SH N|| 1 SH A 
{ 1 SH S}{ 1 SH T}{ 1 SH R}{ 1 SH 1} 

{ 1 SH N|| 1 SH GII 1 SH A}, 

{ 1 SH S}{ 1 SH C}{ 1 SH E}{ 1 SH G} 

{ 1 SH L|| 1 SH 1} { 1 SH L|{ 1 SH A 

I" : rem 3 4 

1210 PRINT"{GIU'}{ 1 SH D)( 1 SH I) 

{ 1 SH I}{ 1 SH N}{ 1 SH I}{ 1 SH Z) 

{ 1 SH I}{ 1 SH 0} { 1 SH D|| 1 SH E 

( 2 SH L)( 1 SH A} { 1 SH S}{ 1 SH T 

{ 1 SH R|| 1 SH I){ 1 SH N}| 1 SH G) 

( 1 SH A} { 1 SH E}, {1 SH C} 

{ 1 SH OH 1 SH M|| 1 SH E} " 

:rem 148 

1220 PRINT"{GIU'}{ 1 SH V|{ 1 SH A) 

{ 1 SH L|| 1 SH OH 1 SH R)| 1 SH E) 

{ 1 SH D|| 1 SH 1} I, { 1 SH 1} 

{ 1 SH N}{ 1 SH S}{ 1 SH EH 1 SH R) 

{ 1 SH I}{ 1 SH S}{ 1 SH C}{ 1 SH I) 

I*" : rem 14 

1230 PRINT"{GIU'}{ 1 SH E)| 1 SH S} 

{ 1 SH E}{ 1 SH M}{ 1 SH P|| 1 SH 1} 

{ 1 SH 0}: | 1 SH P){ 1 SH E| 

1 1 SH R| { 1 SH M}{ 1 SH OH 1 SH D 
{ 1 SH IH 1 SH F|| 1 SH HI 1 SH CI 

( 1 SH A|( 1 SH R|( 1 SH E| { 1 SH I 

{ 1 SH B}{ 1 SH Y}{ 1 SH T)| 1 SH E 

{ 1 SH D|{ 1 SH A} " : rem 48 

1240 PRINT"{GIU') 1=12, { 1 SH I}{ 1 SH N 

{ 1 SH SH 1 SH E}{ 1 SH R}{ 1 SH 1} 

{ 1 SH SII 1 SH C)| 1 SH 1} 12*" 

: rem 116 

1250 PRINT"{GIU'}{RVS}{ 1 SH D}{ 1 SH E} 

{ 1 SH V)| 1 SH E){SPAZI}{ 1 SH E} 

{ 2 SH S}{ 1 SH E}{ 1 SH R}{ 1 SH E) 

{ 1 SH C){ 1 SH A}{ 1 SH R)| 1 SH I 
{ 1 SH C}{ 1 SH A}{ 1 SH T}{ 1 SH 0} 

{ 1 SH T)| 1 SHU)| 2 SH T}{ 1 SH 0 
{ 1 SH 1}{ 1 SH L| { 1 SH B) 

{ 1 SH L}{ 1 SH 0}{ 2 SH C}{ 1 SH 0) 
" : rem 21 

1260 GOSUB450:PRINT"{CLR}": 11=255-8 :IJ=1 

:rem 197 

1270 PRINT"{HOME}":GOSUB960 :rem 7 

1280 PRINTVC$"»> {RVS} { 1 SH R}| 1 SH E} 

{ 1 SH T}{ 1 SH U}{ 1 SH R)| 1 SH N} 
PER USCIRE{OFF}«<"TC$ :GETI$ 

: rem 63 

1290 INPUT"{RVS}{ 1 SH Q}( 1 SH U} 

{ 1 SH A}{ 1 SH L){ 1 SH E} I 

{ 1 SH V}( 1 SH U}{ 1 SH OH 1 SH 1} 

{SPAZI}{ 1 SH M}{ 1 SH 0}{ 1 SH D} 

{ 1 SH I}{ 1 SH F}{ 1 SH I}{ 1 SH C} 

{ 1 SH A}| 1 SH R}{ 1 SH E}{OFF} 

{ 5 SPAZI}{ 2 SIN}[<+>]{ 3 SIN}"; 1$: 

I=VAL(1$) : rem 251 

1300 IFI$="[<+>]"GOTO1350 :rem 233 

1310 IFRIGHT$(1$,1)="*"THENGOSUB6200:GOTO 
1350 :rem 111 

1320 PRINT"{ 1 SH C){ 1 SH 0J{ 2 SH R} 

{ 1 SH E}{ 1 SH N}{ 1 SH T}{ 1 SH E} 

C("I")-{ 5 SPAZI}{SPAZI}{ 5 SIN}"C( 
I)" { 1 SH N){ 1 SH U)| 1 SH 0} 

{ 1 SH V}| 1 SH 0} { 1 SH V}{ 1 SH A 

{ 1 SH L}{ 1 SH 0}{ 1 SH R}| 1 SH E} 

{ 5 SPAZI}{ 5 SIN}";:INPUTC(I) 


: rem 57 

1330 IFI>IITHENII=I :rem 182 

1340 GOTO1290 : rem 205 

1350 PRINT"{CLR}":GOSUB960:PRINT" 

{ 8 SPAZI} »> {RVS } { 1 SH 0){ 1 SH K) 
{OFF}?{ 2 SPAZI}"; : rem 3 

1360 GOSUB480:IFIN$="N"THENPRINT:GOTO1290 

: rem 52 

1370 INPUT"{CLR}{RVS}{ 1 SH M|| 1 SH E} 

{ 1 SH N){ 1 SH U) { 1 SH P}{ 1 SH R 
{ 1 SH I}{ 1 SH N}{ 1 SH C}{ 1 SH 1} 

{ 1 SH P}{ 1 SH A}{ 1 SH L}{ 1 SH E} 

{OFF}{ 3 SPAZI}N{ 3 SIN}";IN$ 

:rem 13 

1380 IFIN$="S"THENRETURN : rem 249 

1390 PRINTVCS"{CLR}{ 1 SH T}{ 1 SH R} 

{ 1 SH A}| 2 SH C}{ 1 SH I}{ 1 SH A} 

{ 1 SH SH 1 SH E|| 2 SH T}{ 1 SH 0} 

{ 1 SH R}| 1 SH E} { 1 SH C){ 1 SH 0 

{ 2 SH R}| 1 SH E}{ 1 SH N}{ 1 SH T) 

{ 1 SH E}="T","S;TC$ :rem 227 

1400 PRINT"{ 1 SH N}{ 1 SH U|| 1 SH 0} 

{ 1 SH V}{ 1 SH A} { 1 SH T}{ 1 SH R 
{ 1 SH A|| 2 SH C|| 1 SH I}{ 1 SH A} 

{ 1 SH S}{ 1 SH E|| 2 SH T}{ 1 SH 0} 

{ 1 SH R}{ 1 SH E}="NT","NS: rem 216 
1410 PRINT"{ 2 GIU'}{RVS}{ 1 SH T} 

{ 1 SH R}{ 1 SH A}{ 2 SH C}{ 1 SH 1} 

{ 1 SH A},{ 1 SH S}{ 1 SH E}{ 2 SH T 

{ 1 SH 0}{ 1 SH R}{ 1 SH E) { 1 SH D 

{ 1 SH E}{ 1 SH SII 1 SH T}{ 1 SH I} 

{ 1 SH N}{ 1 SH A)| 1 SH Z|| 1 SH I} 

{ 1 SH 0}{ 1 SH N}{ 1 SH E}{OFF} 

{ 3 SPAZI}";T","S : rem 133 

1420 INPUT"{SU}{RVS}{ 1 SH T}{ 1 SH R} 

{ 1 SH A}| 2 SH C}{ 1 SH I}{ 1 SH A} 

{ 1 SH S}| 1 SH E}{ 2 SH T}{ 1 SH 0} 

{ 1 SH R}| 1 SH E} { 1 SH D}{ 1 SH E 
{ 1 SH S}{ 1 SH T){ 1 SH I|| 1 SH N} 

{ 1 SH A}{ 1 SH Z|| 1 SH I}{ 1 SH 0} 

{ 1 SH N}{ 1 SH E}{OFF}{ 2 DES}";T,S 

:rem 238 

1430 PRINT"{ 3 GIU'}{RVS}{ 1 SH D| 

{ 1 SH R){ 1 SH I}{ 1 SH V}{ 1 SH E} 
{SPAZI}{ 1 SH D|| 1 SH E}{ 1 SH S) 

{ 1 SH T}{ 1 SH I|| 1 SH N}{ 1 SH A) 

{ 1 SH Z}{ 1 SH I}{ 1 SH 0}{ 1 SH N) 

{ 1 SH E}{OFF}{ 3 SPAZI}";DR 

:rem 72 

1440 INPUT"{SU}{RVS}{ 1 SH D}{ 1 SH R} 

{ 1 SH 1}{ 1 SH V}{ 1 SH E) { 1 SH D 
{ 1 SH E}{ 1 SH SII 1 SH T}{ 1 SH I) 

{ 1 SH N}{ 1 SH A}{ 1 SH Z}{ 1 SH 1} 

{ 1 SH OH 1 SH N}{ 1 SH E} {OFF} 

{ 2 DES}";DR$:DR=VAL(DR$):IFDR$<>"0" 
ANDDR$O"l"THEN1430 : rem 103 

1450 CLOSE3:CLOSE15:OPEN15,DV,15 : rem 179 
1460 OPEN3,DV,3,"#":GOSUB6350 : rem 112 
1470 GET#3,BN$:BN=ASC(BN$):PRINT"{CLR}"SD 
$"{ 4 GIU'}{ 1 SH C){ 1 SH A} 

{ 1 SH R}| 1 SH I}{ 1 SH C}{ 1 SH A} 

{ 1 SH M}{ 1 SH E}{ 1 SH N}{ 1 SH T} 

{ 1 SH 0} { 1 SH B}{ 1 SH U){ 2 SH F 
{ 1 SH E}{ 1 SH R}#"BN ; rem 185 
1480 FORI-0TO255 :rem 169 

1490 PRINT#15,"B-P",3,1:PRINT#3,CHR$(C(I) 

);:PRINT"{HOME}{ 3 SPAZI}{ 3 SIN}"I: 
NEXT : rem 81 

1500 PRINT#15,"U2:3;DR;T;S : rem 105 
1510 PRINT#15,"I"+DR$:GOSUB6350:CLOSE3:CL 
OSE15:PRINT"{CLR}":RETURN : rem 180 
1520 REM LEGGE C(I) IN RAM : rem 100 

1530 REM"[< 17 U>] : rem 7 

1540 IJ=0:11=255:PRINT"{CLR}":HX=0 

: rem 8 4 

1550 PRINT"{CLR}";:GOSUB960 :rem 195 

1560 INPUT"{RVS}{ 1 SH V}{ 1 SH A} 

{ 1 SH L}{ 1 SH 0}{ 1 SH R)| 1 SH E} 

{SPAZI}{ 1 SH I}{ 1 SH N}{ 1 SH 1} 

{ 1 SH Z|| 1 SH I}{ 1 SH A}{ 1 SH L| 

{ 1 SH E} { 1 SH D|| 1 SH I| HOFF} 

{ 3 SPAZI)[<+>]{ 3 SIN}";Il : rem 10 
1570 PRINT"{RVS}{ 1 SH L}{ 1 SH 0} 

{ 1 SH C}{ 1 SH A}{ 1 SH Z|| 1 SH I} 

{ 1 SH 0}{ 1 SH N}{ 1 SH E} { 1 SH R 

{ 1 SH A}{ 1 SH M} { 1 SH I}{ 1 SH N 
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Macintosh ^Commodore 


PERSONAL COMPUTER 


olivelli 



*/AMIGA 


icippkz li 


PHILIPS 



PHILIPS 


olivelli CATARI Sindaii- 

Libri, riviste 
e software, dedicati 

Dedicati al tuo computer preferito, ma soprattutto adatto alle tue reali necessità applicative, 
dedicati a te! Perchè Jackson è l'unico editore in Italia Non solo. In alcuni casi, Jackson anticipa letteralmen- 
a offrire una gamma assolutamente unica di prodotti, te il mercato, proponendo al lettore riviste e libri de¬ 
perfettamente complementari tra loro e orientati alle dicati a particolari famiglie di personal computer, in 
esigenze più specifiche e più svariate. contemporanea con il loro annuncio! 

Solo Jackson pubblica riviste interamente dedicate a Perchè solo Jackson ha l'organizzazione e il know- 
un numero così elevato di personal e home compu- how necessari per produrre editoria tecnica ai più 
ter, tra i più diffusi sul mercato, a cui associa manuali elevati gradi di professionalità. 


tecnici, libri, corsi interattivi, prò- 

grammi di gioco e di Utilità, nel- i Compilare e spedire in busta chiusa a: 

I intento di dare sempre l'informa- I vu Roseiiini 12-20124 Milano 

zione più chiara, pur con diffe- | □ Desidero ricevere il programma 

rentl livelli di approfondimento. I Q Desidero ricevere il catalogo libri IACKSON 
Jackson ti permette COSÌ di sce- I ° Desitlero ricevere il catalogo libri scolastici IACKSON 
i. 1 . ... . 1 ., O Desidero ricevere il programma del corsi 

gliere il prodotto editoriale piu | iackson sata 

I NOMI_ 

I COGNOME_:_ 

| INDIRIZZO_ 

| CAP_CITTA_PROV_ 

l COMPUTER USATO_ 

□ PER LAVORO O PER HOBBY ^ m ■» * 
□ PER STUDIO 


□ Desidero ricevere il programma dei corsi 
JACKSON SATA 


Se vuoi saperne di più e mante¬ 
nerti informato sulle novità de¬ 
dicate al computer da te utiliz¬ 
zato, compila e spedisci in bu¬ 
sta chiusa il personal-tagliando 
pubblicato in questa pagina. 

GRUPPO EDITORIALE 
















{ 1 SH I}{ 1 SH Z}{ 1 SH IH 1 SH A} 

{ 1 SH L}{ 1 SH E} {OFF} ($={ 1 SH H} 

{ 1 SH E)| 1 SH X))( 2 SPAZI}49152" 

:rem 55 

1580 INPUT" {SU HRVSH 1 SH L|( 1 SH 0} 

{ 1 SH C)( 1 SH A}{ 1 SH Z){ 1 SH 1} 

{ 1 SH OH 1 SH N){ 1 SH E} {SPAZI} 

{ 1 SH R}{ 1 SH A}{ 1 SH M} {SPAZI} 

{ 1 SH I}{ 1 SH N}{ 1 SH I}{ 1 SH Z} 

{ 1 SH I}{ 1 SH A}{ 1 SH L}{ 1 SH E} 

{OFF}($={ 1 SH H}{ 1 SH E}{ I SH X}) 
";M$:GOSUB4260 :rem 57 

1590 F0RK1=I1T0255:P0KEM-I1+K1,C(K1):NEXT 

:rem 225 

1600 M=M-Il+256:PRINT"{RVS}{ 1 SH P} 

{ 1 SH R){ 1 SH 0}{ 2 SH S}{ 1 SH I} 

{ 1 SH M){ 1 SH A}{OFF} | 1 SH L) 

{ 1 SH 0}{ 1 SH C}{ 1 SH A)( 1 SH Z) 

{ 1 SH I)| 1 SH 0)1 1 SH N}{ 1 SH E) 

"M;:GOSUB4360 :PRINT" {RVS}"M$ 

:rem 40 

1610 GOSUB450:PRINT"{CLR}"; : RETURN 

:rem 212 

1620 REM SCRIVE RAM SU DISCO : rem 115 

1630 REM"[< 17 U>] : rem 8 

1640 INPUT" {CLR} {GIU'HRVS} { 1 SH L} 

{ 1 SH 0}{ 1 SH C){ 1 SH A}| 1 SH Z) 

{ 1 SH I}( 1 SH 0}| 1 SH N}{ 1 SH E) 

{ 1 SH R}{ 1 SH A){ 1 SH M) 

{ 1 SH D}{ 1 SH E|| 1 SH L) { 1 SH B 

{ 1 SH L}{ 1 SH 0}{ 2 SH C}{ 1 SH 0} 

{OFF}($={ 1 SH H}{ 1 SH E|| 1 SH X}) 

{ 3 SPAZI){<+>]{ 3 SIN}";M$:GOSUB426 
0 :rem 56 

1650 INPUT"{GIU'}{RVS}{ 1 SH I){ 1 SH N) 

{ 1 SH I}{ 1 SH Z}{ 1 SH I}{ 1 SH 0} 

{ 1 SH C}{ 1 SH 0}{ 1 SH N) I{OFF}= 
{ 3 SPAZI}[<+>]{ 3 SIN}"; Il : rem 31 
1660 INPUT" {GIU'HRVS) { 1 SH F}{ 1 SH 1} 

{ 1 SH N}{ 1 SH E} { 1 SH C)| 1 SH 0 
I 1 SH N} I{OFF)“{ 3 SPAZI}{<+>] 

{ 3 SIN}"; 12 : rem 113 

1670 F0RI=I1T0I2:C(I)»PEEK(M+I):NEXT 

:rem 215 

1680 INPUT"{CLR}{ 2 GIU'}{RVS}{ 1 SH T} 

{ 1 SH R}{ 1 SH A}{ 2 SH C}{ 1 SH I} 

{ 1 SH A},{ 1 SH S}{ 1 SH E}{ 2 SH T 
{ 1 SH 0}{ 1 SH R}{ 1 SH E} { 1 SH D 
{ 1 SH E}| 1 SH S)| 1 SH T}{ 1 SH I} 

{ 1 SH N}{ 1 SH A}{ 1 SH Z}{ 1 SH 1} 

{ 1 SH 0}{ 1 SH N}{ 1 SH E}{OFF} 

{ 3 SPAZI}[<+>]{ 3 SIN}";T,S 

: rem 93 

1690 INPUT"{ 3 GIU'}{RVS}{ 1 SH D} 

{ 1 SH R}| 1 SH I}{ 1 SH V}| 1 SH E} 
{SPAZI}{ 1 SH D){ 1 SH E}{ 1 SH S} 

{ 1 SH T}{ 1 SH I}{ 1 SH N}{ 1 SH A} 

{ 1 SH Z}{ 1 SH I}{ 1 SH 0}| 1 SHN) 

{ 1 SH E}{OFF}{ 3 SPAZI)[<+>] 

{ 3 SIN}";DR$:DR=VAL(DR$):IFDR$=" 
[<+>]"THEN1690 : rem 152 

1700 OPEN3,DV,3,"#":GET#3,BN$:BN=ASC(BN$) 
:PRINT"{CLR)"SD$"{ 4 GIU'H 1 SH C} 

{ 1 SH A}{ 1 SH R}| 1 SH I}{ 1 SH C) 

{ 1 SH A){ 1 SH M}{ 1 SH E}{ 1 SH N) 

I 1 SH T)| 1 SH 0} { 1 SH B}{ 1 SH U 
{ 2 SH F){ 1 SH E}{ 1 SH R)#"BN 

:rem 12 

1710 FORI-I1TOI2:PRINT"{HOME}{ 3 SPAZI) 

{ 3 SIN)"I : rem 12 

1720 PRINT#15,"B-P"; 3;I :PRINT#3,CHR$(C(I) 

);:NEXT :rem 45 

1730 PRINT#15,"U2:";3;DR;T;S :rem 110 

1740 PRINT#15,"I"+DR$:GOSUB6350:CLOSE3:CL 
OSE15:PRINT"{CLR}":RETURN : rem 185 

1750 REM BAM : rem 129 

17 60 REM"[< 3 U>] : rem 252 

1770 POKE53280,F5:PRINT"{CLR}":X=30:X$=" 

{ 1 SH B}{ 1 SH A}{ 1 SH M}":GOSUB60 
50 :rem 131 

1780 DEF FNB (I) = (ZANDP (I)) /P (I) : rem 205 

1790 CLOSE15:GOSUB6110 : rem 47 

1800 PRINT"{HOME}{ 2 GIU'}{RVS}1{OFF}: 

{ 1 SH V)ISUALIZZA { 1 SH B){ 1 SH A 
{ 1 SH H}" : rem 192 


1810 PRINT"{GIU'){RVS}2{OFF}:{ 1 SH MJODI 
FICA { 1 SH B}{ 1 SH A}{ 1 SH M}" 

:rem 200 

1820 PRINTVCS"{ 3 GIU'}{RVS}{ 1 SH R} 

{ 1 SH E}{ 1 SH T}{ 1 SH U]| 1 SH R) 

{ 1 SH N}{OFF} PER USCIRE"TC$ 

:rem 125 

1830 GOSUB480:PRINT"{CLR}":IFIN$=CR$THEN1 
860 :rem 254 

1840 GOSUB6130:ONINGOSUB1870,2040 

: rem 199 

1850 GOTO1750 : rem 212 

1860 CLOSE2:CLOSE3:OPEN15,DV,15,"I"+DR$:G 
OSUB6110:GOSUB6350: RETURN : rem 70 

1870 REM VISUALIZZA BAM : rem 150 

1880 REM"[< 11 T>] : rem 216 

1890 PRINT" { 2 GIU'H 1 SH Q){ 1 SH U} 

{ 1 SH A}{ 1 SH L}{ 1 SH 1} { 1 SH T 

{ 1 SH R}{ 1 SH A}{ 2 SH C}{ 1 SH E} 

:PRINT"[< 12 U>] :rem 252 

1900 INPUT" { 2 GIU'H 1 SH P)| 1 SH R) 

{ 1 SH I}| 1 SH M}{ 1 SH A},{ 1 SH U 

{ 1 SH L}{ 1 SH T}{ 1 SH I)| 1 SH M} 

{ 1 SH A} { 1 SH T}{ 1SH R){ 1 SH A 
{ 2 SH C){ 1 SH 1}{ 1 SH A} 

{ 3 SPAZI}[<+>]{ 3 SIN}";TS, TE 

: rem 7 6 

1910 PRINT"{CLR}{RVS}{ 1 SH R){ 1 SH E} 

{ 1 SH T){ 1 SH U}{ 1 SH R}{ 1 SH N} 

{ 2 OFF} PER FINIRE":PRINTS0$ 

:rem 87 

1920 OPEN15,DV,15,"I"+DR$:GOSUB6350 

:rem 226 

1930 OPEN2,DV,2,"$"+DR$:GOSUB6350 

: rem 8 6 

1940 FF=D1+(TS-1)*S3 :rem 61 

1950 FORK=OTOFF:GET#2,A$:NEXT : rem 22 

1960 FORT=TSTOTE:IFT=51THENGET#2,A$,A$,A$ 
,A$ :rem 147 

1970 GOSUB2180 :rem 28 

1980 GETA$:IFA$<>""THENT=TE+1 : rem 184 

1990 NEXT:CLOSE2:CLOSE15 :GOSUB2540 :GOSUB4 
80:RETURN : rem 255 

2000 REM MODIFICA BAM : rem 178 

2010 REM"[< 10 T>] : rem 39 

2020 INPUT"{CLR}{ 1 SH A}{ 1 SH L} 

( 1 SH T}{ 1 SH R){ 1 SH E) { 1 SH M 

{ 1 SH 0}{ 1 SH D}{ 1 SH I}{ 1 SH F) 

{ 1 SH I}{ 1 SH C}{ 1 SH H}{ 1 SH E} 

{ 3 SPAZI}S{ 3 SIN}"; 1$ : rem 253 

2030 IFI$<>"S"THENRETURN : rem 225 

2040 IFDT-67THENPRINT"{CLR}{ 1 SH N) 

{ 1 SH 0}| 1 SH N) { 1 SH P){ 1 SH O 
{ 2 SH S}{ 1 SH 0}{SPAZI}{ 1 SH C} 

{ 1 SH A}{ 1 SH M}{ 1 SH B}{ 1 SH 1} 

{ 1 SH A}{ 1 SH R}{ 1 SH E} { 1 SH L 

{ 1 SH A} { 1 SH B}{ 1 SH A}{ 1 SH M 
{ 1 SH D)| 1 SH 1} { 1 SH Q) 

{ 1 SH U}{ 1 SH E}{ 1 SH S}{ 1 SH T) 
{ 1 SH 0} { 1 SH D}{ 1 SH I}{ 1 SH S 
{ 1 SH C}{ 1 SH 0}.":GOSUB480:RETURN 

: rem 8 8 

2050 INPUT"{CLR){ 1 SH T}| 1 SH R} 

{ 1 SH A}{ 2 SH C}{ 1 SH I}{ 1 SH A} 
{ 3 SPAZI}{ 1 SH V}( 3 SIN}";T 

:rem 225 

2060 CLOSE15:OPEN15,DV,15 :rem 206 

2070 CLOSE2:OPEN2,DV,2,"#":GOSUB6350 

: rem 7 8 

2080 PRINT#15,"U1:"; 2;DR;DI; 0 : rem 129 
2090 PRINT#15,"B-P"; 2;T*4 : rem 106 

2100 PRINTVC$"{CLR}{ 1 SH P}REMI {RVS} 

{ 1 SH R}{ 1 SH E}| 1 SH T}{ 1 SH U} 
{ 1 SH R}{ 1 SH N}{OFF} PER USCIRE 
{GIU')"TC$:GOSUB2180:GOSUB2300 

:rem 231 

2110 INPUT" {HOME} { 9 GIU'H 1 SH C| 

{ 1 SH A}{ 1 SH M}{ 1 SH B){ 1 SH I) 
{ 1 SH A} { 1 SH Q}( 1 SH U}{ 1 SH A 
{ 1 SH L}{ 1 SH E} { 1 SH SH 1 SH E 
{ 2 SH T}{ 1 SH 0){ 1 SH R}{ 1 SH E} 
{ 5 SPAZI}{ 2 SIN){ 1 SH V}{ 3 SIN} 
";S$:IFS$="{ 1 SH V}"THEN2020 

:rem 162 

2120 S**VAL (S$) : IFS<0ORS>*SC (T) THEN2020 

: rem 37 
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2130 

CLOSE2:CLOSE15:PRINTSD$ 

: rem 

6 

2140 

GOSUB2350:GOSUB2210:GOSUB2300:PRINT: 


PRINTMDS"{RVS}{ 1 SH O){ 1 

SH K} 

•> 


{OFF}";:GOSUB480:PRINTCL$ 

: rem 

30 

2150 

IFIN$="S"THENGOSUB24 60 

: rem 

97 

2160 

PRINTMD$CL$SD$ 

: rem 

121 

2170 

GOSUB2 210 :GOT02110 

: rem 

70 

2180 

FORK=OTOS2:GET#2,A$ 

: rem 

146 

2190 

IFA$=""THENA$=CZ$ 

: rem 

211 

2200 

B(K)=ASC(A$):NEXT 

: rem 

229 

2210 

REM STAMPA TRACCIA 

: rem 

102 

2220 

REM"[< 11 T>] 

: rem 

205 

2230 

FORK=lTOSl:Z=B(K) 

: rem 

61 

2240 

FORI=0TO7 

: rem 

63 

2250 

X=FNB(I):PRINTXS(X);:NEXTI 

: rem 

183 

2260 

NEXTK 

: rem 

84 

2270 

Z=B(K):FORI=OTOSC(T)-SC(TT) 

: rem 

177 

2280 

X=FNB(I);PRINTX$(X);:NEXTI: 

PRINT 




: rem 

129 


2290 PRINT"{SU}"TAB(22)"{ 1 SH T|| 1 SH R 
{ 1 SH AH 2 SH C)I 1 SH I}{ 1 SH A} 

{RVS)”T"{OFF}{SIN}VUOTA="B(0) : RETURN 


: rem 248 


2300 PRINTLEFT$(Sl$,SC(T)) : rem 1 

2310 PRINTLEFTS(S2$,SC(T))TAB(23)"# 

{ 1 SH SII 1 SH E){ 2 SH T)( 1 SH 0) 

/ 1 SH SU 1 SH T 1 =«cr* IT\ • OS 



{ 1 SH R){ 1 SH I)="SC(T) 

: rem 

25 

2320 

IFSC(T)=21THENPRINTLEFT$(S3$,SC(T)+1 


):GOTO2340 

: rem 

54 

2330 

PRINTLEFTS(S3$,SC(T)) 

: rem 

6 

2340 

PRINTS0$:RETURN 

:rem 

23 

2350 

REM CAMBIA COLORI 

: rem 

19 

2360 

REM"[< 13 T>1 

: rem 

24 

2370 

IFS<8THENZ=B(1):SS=S:GOTO2400 




: rem 

85 

2380 

IFS<16THENZ=B(2):SS=S-8:GOTO2400 




: rem 

235 

2390 

Z=B(3):SS«S-16 

: rem 

47 

2400 

NZ=(NOTZANDP(SS))OR(ZANDNOTP(SS)) 




: rem 

184 

2410 

B(0)=B(0)+(NZ<Z)—(NZ>Z) 

: rem 

2 

2420 

IFS<8THENB(1)=NZ:GOT02 450 

; rem 

52 

2430 

IFS<16THENB(2)=NZ:GOTO2450 

: rem 

101 

2440 

B (3) =NZ 

: rem 

117 

2450 

RETURN 

: rem 

171 

2460 

OPEN15,DV,15 

:rem 

188 


2470 PRINTMD$VC$"{RVS}{ 1 SH S){ 1 SH E} 

{ 1 SH 1}{SPAZI}{ 1 SH SII 1 SH 1} 

{ 1 SH C){ 1 SH UH 1 SH R)( 1 SH 0) 

{OFF)"TC$;:GOSUB480:PRINTIN$;:IFIN$< 
>"S"THENRETURN : rem 118 

2480 PRINT"..{RVS){ 1 SH M){ 1 SH 0) 

{ 1 SH D){ 1 SH I){ 1 SH F){ 1 SH 1} 

{ 1 SH C}{ 1 SH A} { 1 SH B)( 1 SH A 

{ 1 SH : rem 94 

2490 OPEN3,DV,3,"#":GOSUB6350 : rem 116 

2500 GET#3,BN$:BN=ASC(BN$) : rem 192 

2510 FORI=OTOS2:PRINT#15,"B-P"; 3;I+T*4:PR 
INT#3,CHR$(B(I));:NEXT : rem 6 

2520 PRINT#15,"U2:"; 3;DR;DI;0 : rem 130 

2530 PRINT#15,"I"+DR$:GOSUB6350:CLOSE3:CL 
OSE15:RETURN : rem 25 

2540 PRINT" {HOME) { 24 GIU'HRVSH 1 SH R) 
{ 1 SH E){ 1 SH T}{ 1 SH UH 1 SH R) 
{ 1 SH N){OFF) PER CONTINUARE";:RETU 
RN :rem 255 

2550 PRINTVCS"{ 3 GIU'}{RVS}{ 1 SH R) 

{ 1 SH E}{ 1 SH T}{ 1 SH U){ 1 SH R) 
{ 1 SH N}{OFF) PER USCIRE"TC$ 

:rem 126 

2560 GOSUB480 :RETURN : rem 3 

2570 REM COMANDI AL DRIVE : rem 180 

2580 REM"[< 13 U>] : rem 45 

2590 POKE53280,F5:GOSUB6110:PRINT"{CLR}": 
X$="{ 1 SH D)| 1 SH I)( 1 SH S) 

{ 1 SH C){ 1 SH O)":X=30:GOSUB6050:P 
RINT"{HOME}"HD$ : rem 118 

2600 CLOSE15:D$(1)="{ 1 SH IJNIZIALIZZA": 
D$'(2) = " { 1 SH V)ALIDA” :D$ (3) = " 

{ 1 SH F JORMATTAZIONE" : rem 248 

2610 D$(4)-"{ 1 SH C}AMBIA { 1 SH D) 

{ 1 SH R)| 1 SH I){ 1 SH V|| 1 SH E) 

: rem 7 8 

2620 D$(5)“"{ 1 SH V)ISUALIZZA { 1 SH D)I 
RECTORY" ; rem 0 

2630 D$(6)="{ 1 SH C)AMBIA { 1 SH D) 


{ 1 SH E}{ 1 SH V)| 1 SH I}{ 1 SH C) 
{ 1 SH E)#" : rem 43 

2640 D$ (7) =" { 1 SH CONTROLLO { 1 SH E) 

{ 2 SH R}{ 1 SH OH 1 SH R)| 1 SH I) 
{ 1 SH D){ 1 SH I){ 1 SH S){ 1 SH C 
{ 1 SH O)":D$(8)="{ 1 SH CJONTROLLO 
{ 1 SH B)LOCCHI DIFETTOSI" : rem 69 

2650 D$(9)="{ 1 SH BJACKUP (BLOCCO PER BL 
OCCO)" ; rem 18 

2660 F0RI=1T09:PRINT"{GIU'}{RVS}"I"{OFF): 
"D$(I):NEXT:PRINTSO$:PRINTVC$"{GIU*) 
{RVS}{ 1 SH R)( 1 SH E){ 1 SH T) 

{ 1 SH U){ 1 SH R){ 1 SH N){OFF) PER 
USCIRE"TC$ : rem 130 

2670 GOSUB480:IFIN$=CR$THENRETURN 

;rem 116 

2680 PRINT"{HOME){GIU')" ; rem 197 

2690 FORI=lTOIN:PRINT"{ 2 GIU*}";:NEXT:PR 
INT"{ 4 DES){RVS)"D$(IN):FORT9=lTO30 
• 0:NEXT : rem 54 

2700 ON IN GOSUB2720,2730,2740,2780,4410, 
3090,3200,5960,5560 :rem 16 

2710 GOTO2570 : rem 209 

2720 OPEN15,DV,15,"I"+DR$:GOSUB63 50 : RETUR 
N :rem 251 

2730 OPEN15,DV,15,"V"+DR$:GOSUB6350:RETUR 
N ; rem 9 

2740 INPUT"{CLR){ 2 GIU'){ 1 SH N) 

{ 1 SH OH 1 SH M){ 1 SH E) { 1 SH D 

{ 1 SH E}{ 1 SH L) | 1 SH D)( 1 SH I 

{ 1 SH S){ 1 SH C}{ 1 SH O)";NM$:INP 

UT"{ 2 GIU'){ 1 SH I){ 1 SH D) 

{ 1 SH D){ 1 SH E){ 1 SH L) { 1 SH D 

{ 1 SH I}{ 1 SH S){ 1 SH C|| 1 SH O) 

;ID$: INPUT" { 2 GIU’H 1 SH D) 

{ 1 SH R){ 1 SH I){ 1 SH V)| 1 SH E) 
;DA$ : rem 196 

2750 CC$="N"+DA$+":"+NM$+","+ID$:PRINT" 

{ 2 GIU'JOPEN 15,"DV",15,"CHR$(34)CC 
$CHR$(34) ; rem 206 

2760 INPUT"{ 2 GIU'}{ 1 SH S){ 1 SH E) 

{ 1 SH I){SPAZI}{ 1 SH S}{ 1 SH I) 

{ 1 SH C){ 1 SH UH 1 SH R)( 1 SH O) 
{ 5 SPAZI }N{ 3 SIN)";W$ : IF W$<>"S 
"THEN RETURN : rem 132 

2770 OPEN15,DV,15,CCS:GOSUB6350: RETURN 

:rem 56 

2780 DR=VAL(DR$):PRINT"{CLR){ 2 GIU') 

{ 1 SH D){ 1 SH R){ 1 SH I){ 1 SH V) 
{ 1 SH E}{ 3 SPAZI}"1-DR:INPUT"{SU) 

{ 7 DES)";DR$ : rem 159 

2790 MH$="{ 1 SH D){ 1 SH R){ 1 SH I) 

{ 1 SH V)| 1 SH E) "+DR$+"{RVS) 

{ 2 SPAZI)*********************{OFF) 
" : rem 112 


2800 MH$="{ 1 SH D){ 1 SH R){ 1 SH I) 

{ 1 SH V){ 1 SH E) "+DR$+"{RVS) 

{ 2 SPAZI}*********************{OFF) 



N 

: rem 

104 

2810 

GOSUB420 :GOSUB39 4 0 : RETURN 

: rem 

133 

2820 

REM TRACCIA BLOCCHI 

: rem 

155 

2830 

REM"[< 12 U>] 

: rem 

115 


2840 PRINT"{CLR){GIU 1 )(RVS)l{OFF): 

{ 1 SH V)ISUALIZZO TUTTI I LINK DI T 
RACCIA.":PRINT"{GIU'){RVS}2{OFF) : 

{ 1 SH SJEGUO I LINK.{ 3 GIU'}" 

:rem 188 

2850 X=30:X$="{ 1 SH T}{ 1 SH R){ 1 SH A) 
{ 2 SH C){ 1 SH I){ 1 SH A)":GOSUB60 
50 :GOSUB2550:IF IN$=CR$ THEN RETURN 

:rem 9 

2860 INPUT" {CLR} { 2 GIU’H 1 SH S) 

{ 1 SH T){ 1 SH A}{ 1 SH M}{ 1 SH P) 
{ 1 SH A) { 1 SH N){ 1 SH T)( 1 SH E) 
{ 4 SPAZI}N{ 3 SIN)";II$:PD-3:IF 11$ 
="S"THENPD=4 : rem 97 

2870 OPEN4,PD:IF IN-2 THEN2940 : rem 196 
2880 INPUT"{CLR}{GIU’}{ 1 SH T}{ 1 SH R) 

{ 1 SH A){ 2 SH C}{ 1 SH I){ 1 SH A) 
{ 3 SPAZI)[<+>]{ 3 SIN)";T8:CLOSE3:C 
LOSE15:OPEN15,DV,15:OPEN3,DV,3,"#" 

:rem 127 

2890 PRINT#4,"{CLR}{ 1 SH T}{ 1 SH R) 

{ 1 SH A){ 2 SH C){ 1 SH I}{ 1 SH A) 
T8:PRINT#4,"[< 8 U>]" : rem 11 

2900 FORS8-0TO31:PRINT#15,"B-R";3;DR;T8;S 
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2910 

2920 

2930 

2940 


2950 

2960 


2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 


3080 

3090 


3100 


3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 


3230 

3240 


3250 

3260 

3270 

3280 


8 : INPUT#15,E :IFETHEN2920 :rem 204 
PRINT#15,"B-P"; 3;1:GET#3,A$:PRINT#4, 
"SETTORE"S8" { 1 SH L}{ 1 SH 1} 

{ 1 SH N}{ 1 SH K) { 1 SH C}{ 1 SH 0 
{ 1 SH N}"ASC(A$+CZ$) : rem 118 
GETIN$:IFIN$<>""THENS8=32 : rem 6 
NEXT:GOSUB450:PRINT#4:CLOSE4:GOT0282 
0 :rem 161 
INPUT" {CLRHGIU' } {RVS} { 1 SH T} 

{ 1 SH R)| 1 SH A}{ 2 SH C}{ 1 SH I} 
{ 1 SH A},{ 1 SH S){ 1 SH E)| 2 SH T 
{ 1 SH 0}{ 1 SH R)| 1 SH E} INIZIALE 
{OFF}{ 3 SPAZI)[<+>]{ 3 SIN)";T8,S8: 
CLOSE3:CLOSE15 : rem 125 
OPEN15,DV,15:OPEN3,DV,3,"#":GOSUB635 
0 :rem 159 
PRINT"{CLR}{RVS){ 1 SH R)| 1 SH E) 

{ 1 SH T}{ 1 SH U){ 1 SH R){ 1 SH N) 
{OFF) ESCE":PRINT#4,"("T8","S8") 

{ 1 SH P)| 1 SH R}{ 1 SH I){ 1 SU M) 
{ 1 SH O) { 1 SH B){ 1 SH L){ 1 SH O 
{ 2 SH C){ 1 SH O)":N9=1 : rem 202 
PRINT#15,"B-R";3;DR;T8;S8 : rem 229 
PRINT#15,"B-P"; 3;0 : rem 241 
GET#3,Z$:IFZ$=""THENZ$=CZ$ : rem 39 
T8=ASC(Z$):IFT8=0THEN3070 :rem 237 
GET#3,Z$:IFZ$-""THENZ$=CZ$ : rem 23 
S8*ASC(Z$) : rem 51 
T8$=MID$(STR$(T8),2):S8$=MID$(STR$(S 
8)/2) :rem 38 
PRINT#4,"("T8$","S8$")";:IFINT(N9/5) 
*5=N9THENPRINT#4 : rem 224 
N9=N9+1:GETIN$:IFIN$=""GOTO2970 


: rem 8 4 

PRINT:GOTO3080 : rem 148 

PRINT#4," { 1 SH U}{ 1 SH 1) 

{ 1 SH T)T 1 SH I)| 1 SH M}{ 1 SH O) 
{ 2 GIU'}":PRINT#4,N9" { 1 SH B) 

{ 1 SH L}{ 1 SH OH 2 SH CH 1 SH H) 
{ 1 SH I}{GIU')" : rem 19 

GOSUB450:PRINT#4:CLOSE4:GOTO2820 


„ :rem 37 
D9=9:D1$**CHR$(DV+32):D2$=CHR$(DV+64) 
:OPEN15,DV,15 :IFDV=D9THEND9=8 


: rem 


PRINT"{HOME){ 11 GIU'}{U){ 11 GIU') 
{RVS ) { 1 SH N|| 1 SH UH 1 SH O) 

{ 1 SH V)( 1 SH O){OFF) { 1 SH D) 

{ 1 SH E){ 1 SH V)( 1 SH I){ 1 SH C) 
{ 1 SH E) # "D9 : rem 62 

INPUT"{SU){ 14 DES}";D9 : rem 120 
XX-12:GOSUB3180:IFYYTHEN3160 

: rem 16 

XX=50:GOSUB3180:IFYYTHEN3160 

: rem 19 

XX=119 :GOSUB318 0 :1FYYTHEN3160 


: rem 7 4 

GOSUB3280:RETURN :rem 48 
PRINT#15,"M-W"CHR$(XX)CHR$(00)CHR$(2 
)CHR$(D9+32)CHR$(D9 + 64) : rem 28 
CLOSE15:DV=D9:GOSUB420: RETURN 


:rem 159 

YY=-1:PRINT#15,"M-R"CHR$(XX)CHR$(0) : 
GET#15, XX$ : IFXX$OD1$THENYY=0 

:rem 202 

RETURN :rem 173 

CLOSE15:OPEN15,DV,15 :INPUT#15,El$,E2 
$,E3$,E4$:S9$«"," : rem 211 

X$«E1$+S9$+E2$+S9$+E3$+S9$+E4$ 

:rem 255 

PRINT"{CLR)":X=5:Y$="":GOSUB6070:FOR 
A9-1TO100:E=VAL(El$):NEXT:IFE=0THENR 
ETURN : rem 184 

FORA9=lTO10:GOSUB6190:NEXT :rem 158 

PRINT"{ 2 GIU'){RVS){ 1 SH R) 

{ 1 SH E}{ 1 SH T)( 1 SH U){ 1 SH R) 
{ 1 SH N){OFF) PER CONTINUARE" 

:rem 31 

PRINT"{ 2 GIU'IUN ALTRO TASTO PER 
{RVS)USCIRE{OFF)." : rem 241 

GOSUB480:IFIN$»CR$THENRETURN 


:rem 112 

GOTO3700 : rem 207 
PRINT"{CLR){ 2 GIU'}***{RVS}{ 1 SH D 
{ 1 SH I){ 1 SH S}{ 1 SH C){ 1 SH O) 
{SPAZI} { 1 SH N)| 1 SH OH 1 SH N) 


{SPAZI}{ 1 SH U}{ 1 SH T){ 1 SH I) 

{ 1 SH L}{ 1 SH I){ 2 SH Z){ 1 SH A) 

{ 1 SH B){ 1 SH I}{ 1 SH L}{ 1 SH E) 

{OFF }***": PRINT" { 2 GIU'H 1 SH V) 

{ 1 SHU)( 1 SH 0){ 1 SH I) { 1 SH F 

{ 1 SH I){ 1 SH N}{ 1 SH I}{ 1 SH R) 

{ 1 SH E}?" : rem 148 

3290 GOSUB480:IFIN$="S"THEN3700 : rem 59 

3300 RETURN :rem 166 

3310 REM RECUPERO FILE : rem 48 

3320 REM"[< 9 U>] : rem 70 

3330 PRINT"{CLR)":X=25:X$="{ 1 SH R) 

{ 1 SH E}{ 1 SH C}{ 1 SH U}{ 1 SH P) 

{ 1 SH E)| 1 SH R|| 1 SH 0}":Y$="":G 

OSUB6070 :rem 190 

3340 PRINT"{GIU'}{ 1 SH F}{ 1 SH A) 

{ 1 SH R){ 1 SH O) ' { 1 SH L) 

{ 1 SH E) { 1 SH S){ 1 SH E}{ 1 SH G 
{ 1 SH U}{ 1 SH E){ 1 SH N){ 1 SH T) 
{ 1 SH I) { 1 SH Oli 1 SH P)| 1 SH E 
{ 1 SH R)| 1 SH A){ 1 SH Z|{ 1 SH I} 

{ 1 SH O){ 1 SH N){ 1 SH I) :" 

: rem 42 

3350 PRINT"{GIU'}{RVS)1{OFF}:{ 1 SH L) 

{ 1 SH E){ 2 SH T}{ 1 SH UH 1 SH R) 

{ 1 SH A) { 1 SH T){ 1 SH R)( 1 SH A 

{ 2 SH C){ 1 SH E) { 1 SH D}{ 1 SH I 

{ 1 SH R)| 1 SH E)( 1 SH C){ 1 SH T| 

{ 1 SH Oli 1 SH R)| 1 SH Y}"DI" 

{ 1 SH F}{ 1 SH I){ 1 SH N}{ 1 SH O) 

" :rem 6 5 

3360 PRINT" { 1 SH A) { 1 SH T}{ 1 SH R) 

{ 1 SH OH 1 SH V)( 1 SH A}{ 1 SH R) 

{ 1 SH E) | 1 SH I)( 1 SH L) 

{ 1 SH N)| 1 SH OH 1 SH M}{ 1 SH E) 

{ 1 SH D)| 1 SH E}{ 1 SH L) 

{ 1 SH F)| 1 SH I){ 1 SH L}{ 1 SH E) 

{ 1 SH C){ 1 SH A)( 1 SH N}{ 1 SH C 
{ 1 SH E){ 2 SH L)( 1 SH A}{ 1 SH T) 

{ 1 SH O}." : rem 62 

3370 PRINT"{GIU'}{RVS}2{OFF}:{ 1 SH L) 

{ 1 SH I){ 1 SH N}{ 1 SH K) { 1 SH D 

{ 1 SH E){ 1 SH I){SPAZI}{ 1 SH B) 

{ 1 SH L)( 1 SH OH 2 SH C}{ 1 SH H) 

{ 1 SH I) { 1 SH E) { 1 SH C) 

{ 1 SH 0}{ 1 SH N){ 1 SH F}{ 1 SH R) 

{ 1 SH 0}{ 1 SH N){ 1 SH T}{ 1 SH O) 

: rem 8 0 

3380 PRINT"{ 2 SPAZI){ 1 SH D}{ 1 SH E) 

{ 1 SH I){SPAZI}{ 1 SH B}{ 1 SH L) 

{ 1 SH 0){ 2 SH C}{ 1 SH H}{ 1 SH I) 

{ 1 SH O){ 2 SH T){ 1 SH E){ 1 SH N 
{ 1 SH U)( 1 SH T){ 1 SH I) { 1 SH C 

{ 1 SH OH 1 SHN) { 1 SH Q){ 1 SH U 

{ 1 SH E}{ 2 SH L}{ 1 SH OJ" 

:rem 179 

3390 PRINT"{ 2 SPAZI}{ 1 SH D){ 1 SH E) 

I 2 SH L){ 1 SH A) { 1 SH D}{ 1 SH I 
{ 1 SH R)| 1 SH E}{ 1 SH C){ 1 SH T) 

{ 1 SH O){ 1 SH R)( 1 SH Y) 

:rem 229 

3400 PRINT”{GIU'){RVS}3{OFF}:{ 1 SH C) 

{ 1 SH 0)| 1 SH N}{ 1 SH T}{ 1 SH R) 

I 1 SH 0)( 2 SH L)( 1 SH O) { 1 SH D 

{ 1 SH E)| 2 SH L){ 1 SH A) { 1 SH B 

1 1 SH A){ 1 SH M) { 1 SH P}{ 1 SH E 

I 1 SH R) ( 1 SH V)( 1 SH E)( 1 SH D 

{ 1 SH E){ 1 SH R){ 1 SH E) { 1 SH S 

{ 1 SH E)" : rem 226 

3410 PRINT"{ 2 SPAZI}{ 1 SH T}{ 1 SH U) 

{ 2 SH T)( 1 SH I) { 1 SH I) 

{ 1 SH B}{ 1 SH L){ 1 SH 0)| 2 SH C) 

{ 1 SH H}{ 1 SH I) { 1 SH S){ 1 SH O 

{ 1 SH N){ 1 SH O) { 1 SH L){ 1 SH I 

{ 1 SH B}{ 1 SH E){ 1 SH R}{ 1 SH I) 

" :rem 20 

3420 PRINT" {GIU'}»{ 1 SH S}{ 1 SH E) 

{ 1 SH T}{ 1 SH U){ 2 SH T}{ 1 SH O) 

{ 1 SH C)| 1 SH I){ 1 SH O)' 

{ 1 SH E)' { 1 SH 0}{ 1 SH K|" 

:rem 231 

3430 PRINT"{ 2 SPAZI){ 1 SH D}{ 1 SH E) 

{ 1 SH V){ 1 SH I) { 1 SH M){ 1 SH 0 

{ 1 SH D}{ 1 SH I){ 1 SH F}{ 1 SH I) 

{ 1 SH C){ 1 SH A){ 1 SH R}{ 1 SH E) 

( 1 SH L)( 1 SH A) { 1 SH D) 


60 
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{ 1 SH I}{ 1 SH R)( 1 SH E){ 1 SH C) 

{ 1 SH T}{ 1 SH 0}{ 1 SH R)( 1 SH Y) 

: rem 8 8 

3440 PRINT"{ 2 SPAZIH 1 SH C]| 1 SH 0} 

{ 1 SH SH 1 SH I) ’ :GOSUB450 

:rem 126 

3450 PRINT" {CLRH 1 SH M}{ 1 SH 0} 

{ 1 SH D)( 1 SH I)| 1 SH F}( 1 SH 1} 

{ 1 SH C)( 1 SH A} { 1 SH I}{ 1 SH L 

{ 1 SH B}{ 1 SH Lll 1 SH 0}{ 2 SH C 

{ 1 SH 0} { 1 SH 1}{ 1 SHN) 

{ 1 SHM)( 1 SH OH 1 SH D)| 1 SH 0} 

( 1 SH C|( 1 SH H)( 1 SH E)" 

:rem 201 

3460 PRINT"{RVS){ 1 SH I}{ 1 SH L)' 

{ 1 SH M)( 1 SH AH 1 SH GH 1 SH 1} 

{ 1 SH C) { 1 SH B)( 1 SH Y|( 1 SH T 
{ 1 SH E)'" : rem 168 

3470 PRINT"{ 2 SPAZIH 1 SH P}{ 1 SH 0} 

{ 1 SH S}{ 1 SH I)| 1 SH Z){ 1 SH I) 

{ 1 SH 0)| 1 SH Nj| 1 SH A}{ 1 SH T) 

{ 1 SH 0} {RVS}3{0FF} ( 1 SH P) 

{ 1 SH OH 1 SH SU 1 SH T){ 1 SH I) 

{ 1 SH P)| 1 SH R)| 1 SH IH 1 SH M 

{ 1 SH A} { 1 SH D)( 1 SH E|| 1 SH L 

" :rem 178 

3480 PRINT"{ 2 SPAZI}{ 1 SH N}{ 1 SH 0} 

{ 1 SH M}( 1 SH E} { 1 SH A}{ 2 SH B 

{ 1 SH I}{ 1 SH A} { 1 SH Q}{ 1 SH U 

{ 1 SH E}{ 1 SH SII 1 SH T}{ 1 SH 0} 

{ 1 SH V){ 1 SH AH 1 SH LH 1 SH 0 
{ 1 SH RII 1 SH E}:" : rem 130 

3490 PRINT"{ 2 SPAZI}129=FILE { 1 SH S) 

{ 1 SH E}{ 1 SH Q|" : rem 3 

3500 PRINT"{ 2 SPAZI}130=FILE ( 1 SH P| 

{ 1 SH R){ 1 SH Gì" : rem 243 

3510 PRINT"{ 2 SPAZI}131=FILE { 1 SH U) 

{ 1 SH S)| 1 SH R)" : rem 6 

3520 PRINT"{ 2 SPAZI}132=FILE | 1 SH R) 

{ 1 SH E}{ 1 SH L) n : rem 241 

3530 PRINT"{GIU 1 }{ 1 SH E}{ 1 SH S) 

{ 1 SH EH 1 SH M}{ 1 SH P]{ 1 SH I) 

{ 1 SH 0}:{ 1 SH P)( 1 SH E|( 1 SH R 

{ 1 SH R)| 1 SH E}{ 1 SH C}{ 1 SH U 

{ 1 SH P)( 1 SH E}{ 1 SH R){ 1 SH A} 

{ 1 SH R)( 1 SH E) { 1 SH I}{ 1 SH L 

{ 1 SH F}( 1 SH I}{ 1 SH L)| 1 SH E 

' { 1 SH AH 1 SH B}{ 1 SH Z} * 

{ 1 SH P}{ 1 SH R){ 1 SH G)" 

:rem 151 

3540 PRINT"{ 1 SH T){ 1 SH R}{ 1 SH 0} 

{ 1 SH V}| 1 SH A} { 1 SH IH 1 SH L 

{ 1 SH N)( 1 SH OH 1 SH M]{ 1 SH E 

{ 1 SH N}{ 1 SH EH 2 SH L}{ 1 SH A 

{ 1 SH D){ 1 SH I}( 1 SH R)| 1 SH E 

{ 1 SH C}{ 1 SH T)( 1 SH OH 1 SH R) 

{ 1 SH Y}, { 1 SH E}" : rem 127 

3550 PRINT"{ 1 SH S){ 1 SH E}{ 1 SH L) 

{ 1 SH E}{ 1 SH Z)| 1 SH IH 1 SH 0} 

{ 1 SH N)| 1 SH AHSPAZIH 1 SH M} 

{ 1 SH E){ 1 SH N){ 1 SH U| { 1 SH C 

{ 1 SH OH 1 SH N) { 1 SH M|( 1 SH O 

{ 1 SH D}{ 1 SH I}{ 1 SH F]( 1 SH I) 

{ 1 SH C)| 1 SH A) { 1 SH B}{ 1 SH L 

{ 1 SH OH 2 SH C}{ 1 SH 0} 

:rem 25 

3560 PRINT" { 1 SH V}{ 1 SH EH 1 SH D) 

{ 1 SH R)| 1 SH AH 1 SH I) :" 

:rem 148 

3570 PRINT"{GIU 1 }•• 0{RVS} 0{OFF} 0"VC$" 
{RVS} 0"TC$"(OFF} 19{RVS} 3{0FF} 65 
{RVS} 66{OFF} 90;...ETC" :rem 206 
3580 PRINT"{ 9 SPAZI) A { 2 SPAZI} A A 

{ 2 SPAZI} A { 2 SPAZI) A { 2 SPAZI} A " 

:rem 213 

3590 PRINT" { 1 SH D}{ 1 SH OH 1 SH V} 

{ 1 SH E) { 1 SH E)'{ 3 SPAZI} 

{ 1 SH -}{ 1 SH T}RAC{ 1 SH -} 

{. 1 SH A}{ 2 SPAZI)| 1 SH B) 

{ 2 SPAZI}{ 1 SH Z}" : rem 125 

3600 PRINT"{ 5 SPAZI}A 130 { 1 SH -}& 

{ 1 SH S}ET{ 1 SH -}( 1 SH NJOME 
{ 1 SH F}ILE(IN { 1 SH A}{ 1 SH S} 

{ 1 SH C}{ 2 SH I})" : rem 219 

3610 GOSUB450:PRINT"{SU}" : rem 127 

3620 PRINT"{GIU'}{ 1 SH H)| 1 SH 0} 


{ 1 SH D)| 1 SH I}{ 1 SH F}{ 1 SH 1} 

{ 1 SH C}{ 1 SH A) { 1 SH I}{ 1 SH L 

{ 1 SH B}{ 1 SH Y}( 1 SH T}{ 1 SH E 

{ 1 SH C){ 1 SH H}( 1 SH E} 

{ 1 SH I}{ 1 SH D}{ 1 SH E}{ 1 SH N) 

{ 1 SH T}{ 1 SH I}{ 1 SH F}{ 1 SH 1} 

{ 1 SH C}{ 1 SH A} | 1 SH I}{ 1 SH L 

{ 1 SH T){ 1 SH I}-" : rem 49 

3630 PRINT"{ 1 SH P}{ 1 SH 0} { 1 SH D} 

{ 1 SH 1} { 1 SH F}{ 1 SH I}{ 1 SH L 

{ 1 SH E} { 1 SH 1}{ 1 SH N) 130. 

{ 1 SH D}| 1 SH EH 1 SH V}{ 1 SH E} 

{ 1 SH A}{ 2 SH P}| 1 SH A}{ 1 SH R 
{ 1 SH 1}{ 1 SH R}| 1 SH E}:" 

: rem 244 

3640 PRINT"{GIU'}•• 0{RVS} 0{OFF} 0"VC$" 
{RVS}1{FI}0"TC$"{OFF} 19{RVS} 3{OFF} 

65{RVS} 66{OFF} 90-ETC":rem 130 

3650 PRINT"{GIU'}{RVS}4{OFF}:{ 1 SH R} 

{ 1 SH I}{ 1 SH S}{ 1 SH C}( 1 SH R| 

{ 1 SH I}{ 1 SH V|| 1 SH 1} { 1 SH I 

{ 1 SH L) { 1 SH B}{ 1 SH L}{ 1 SH 0 

{ 2 SH C}{ 1 SH 0) { 1 SH S}| 1 SH U 

{ 1 SH D}| 1 SH I}{ 1 SH S}{ 1 SH C 
{ 1 SH O)." : rem 60 

3660 PRINT"{GIU'}{RVS}5{OFF}:{ 1 SH V} 

{ 1 SH A}{ 1 SH L}| 1 SH I}{ 1 SH D} 

{ 1 SH AHGIU'H 8 SIN} {< 8 U>]{SU} 

{ 1 SH I)| 1 SH L) { 1 SH D){ 1 SH I 

{ 1 SH S){ 1 SH C}( 1 SH 0}." 

:rem 116 

3670 PRINT"{GIU'}{RVS}5{OFF}:{ 1 SH S} 

{ 1 SH P}{ 1 SH E}{ 1 SH R}( 1 SH A} 

{ 1 SH 1}{ 1 SH N} { 1 SH B) 

{ 1 SH E}{ 1 SH N}{ 1 SH E}..." :GOSU 
B480 :rem 81 

3680 INPUT"{GIU'}{ 1 SH V}{ 1 SH U} 

{ 1 SH 0}{ 1 SH 1}{SPAZI}{ 1 SH P} 

{ 1 SH R){ 1 SH 0}{ 1 SH V}| 1 SH A} 

{ 1 SH R}{ 1 SH E}{ 3 SPAZI}N 

{ 3 SIN}";A$:IFA$<>"S"THENRETURN 

: rem 7 5 

3690 GOTO4920 :rem 218 

3700 CLOSE15:GOSUB6130:PRINT"{CLR} 

{ 5 GIU'H 1 SH C}{ 1 SH I}{ 1 SH A) 

{ 1 SH 0}{ 3 GIU'}":PRINTHD$" 

{ 2 GIU'}": END :rem 90 

3710 REM INIZIALIZZA : rem 253 

3720 REM"[< 10 U>] : rem 2 

3730 PRINT"{CLR}":GOSUB6130:POKE53281,FI: 
POKE53280,FI :DIM F3$ ( 15),F5$(15) 

: rem 188 

3740 FORI=0TO15:READF3$(I):F5$(I)-F3$(I): 

NEXT -.rem 97 

3750 DATA"{BLK}","{WHT}","{RED}","{CYN}", 
"{PUR}","{GRN}","{BLU}","{YEL}" 

: rem 4 

3760 DATA"[<1>]"[<2>]"[<3>]"[<4>]", 
"[<5>]","[<6>]","[<7>]","[<8>]" 

:rem 231 

3770 TC$=F3$(F3):PRINTTC$:VC$=F5$(F5) 

:rem 81 

3780 DIMC(255),T(120),S(120),SC(77), B (4) 

:rem 23 

3790 DATAI,17,20,24,19,30,17,35,16,0 

: rem 14 

3800 DATA65,17,20,24,18,30,17,35,16,0 

:rem 63 

3810 DATA67,39,28,53,26,64,24,77,22,0 

:rem 87 

3820 S0$="{ 39 SH *)":S4$=S0$+S0$ 

: rem 208 

3830 POKE53272,23 :A$=VC$+"{CLR}{RVS}* 

{ 1 SH D}{ 1 SH I}{ 1 SH SII 1 SH K) 
{ 1 SH U)| 1 SH T}{ 1 SH I}{ 1 SH L 
{ 1 SH I}{ 1 SH T}{ 1 SH Y| *"+TC$:F 
0RI=1T0LEN(A$) : rem 103 

3840 PRINTMID$(A$,1,1); :F0RT=1T05:NEXT:NE 
XT:PRINT:PRINTS0$:IFCP$="PET"G0T0387 
0 : rem 244 

3850 PRINT"{ 2 GIU'}{ 1 SH N}{ 1 SH 0) 

{ 1 SH T]| 1 SH AHGIU’H 4 SIN} 

[< 4 U>]" :rem 90 

3860 PRINT"{ 1 SH 1} TASTI FUNZIONE CAMBI 
ANO I COLORI":PRINT"DEL MENU." 

:rem 236 
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3870 INPUT"{ 2 GIU'}DEVICE #{ 3 SPAZI)8 

{ 3 SIN)";DV : rem 127 

3880 R$(0)="{RVS}":R$(1)="{OFF}":NN=55341 

: rem 183 

3890 HX$="0123456789ABCDEF" :rem 187 

3900 SD$="{HOME}{ 10 GIU')":BB$=SD$+" 

{ 11 GIU')" : rem 201 

3910 MD$="{HOME}{ 18 GIU')(OFF}":CR$=CHR$ 
(13):CZ$=CHR$(0) : rem 122 

3920 GOSUB6150 :rem 26 

3930 INPUT"{ 2 GIU') DRIVE #{ 3 SPAZI}0 

{ 3 SIN)";DR$:DR=VAL(DR$) : rem 89 

3940 PRINT"(CLR)":GOSUB6130:CLOSE15:OPENl 
5,DV,15,"I"+DR$:GOSUB6350 : rem 30 

3950 K$="{ 2 SPAZI){ 1 SH I}{ 1 SH L) 

{SPAZI}{ 1 SH B){ 1 SH L}{ 1 SH 0} 

{ 2 SH C)| 1 SH O){SPAZI){ 1 SH E)' 

{ 1 SH V)| 1 SH U){ 1 SH 0){ 1 SH T) 
{ 1 SH O){ 3 SPAZI}" : rem 81 

3960 RESTORE:FORI=0TO15:READX$:NEXT:WW=0: 

A0=1 :rem 143 

3970 OPEN3,DV,3,"$"+DR$:GOSUB6350 

:rem 94 

3980 GET#3,A$:A=ASC(A$+CZ$) :rem 204 

3990 READDT:IFA=DTTHEN4040 : rem 95 

4000 WW=WW+1:IFWW<3THEN F0RI=1T09:READDT: 

NEXT:GOTO3990 : rem 247 

4010 CLOSE3:GOSUB3280 : rem 245 

4020 MH$="DRIVE "+DR$+"{RVS}! !{ 1 SH D) 

{ 1 SH I}{ 1 SH S){ 1 SH C}{ 1 SH O) 
{ 1 SH D|| 1 SH I){ 1 SH F}{ 1 SH E 



! ! ! ! !{OFF}":GOSUB4250 

: rem 

34 

4030 

TT=200 :DI=7 6 :GOTO4130 

: rem 

234 

4040 

IFDT=10RDT=65THENKK=143 

: rem 

216 

4050 

IFDT=67THENKK=5 

: rem 

209 

4060 

GOSUB4200 

: rem 

16 

4070 

READA1 :IFA1-0THEN4090 

: rem 

253 

4080 

READB1:FORI=AOTOA1:SC(I) 

=B1+1:NEXT:A 


0=1:GOTO4070 

: rem 

230 

4090 

IFDT=10RDT=65THEND1=1:TT 

=35 :S2=3 

: DI= 


18 

: rem 

120 

4100 

IFDT=67THEND1=257:TT=77: 

S2=4:DI= 

39 


: rem 6 6 

S1=S2-1:S3=S2+1 :rem 72 

CLOSE3:IFTT=0THEN4010 : rem 66 

FORI=0TO7:P(I)=2 A I :NEXT:FORI-0TO3:H( 
I)=16 A I:NEXT : rem 127 

H$ (0)="{ 1 SH D}{ 1 SH E}{ 1 SH C) 

{ 1 SH I){ 1 SH M){ 1 SH A}{ 1 SH L) 

{ 1 SH E)":H$(1)="{ 1 SH H}{ 1 SH E) 
{ 1 SH X)" : rem 121 

X$(0)="{ 1 SH Q)":X$(1)="{ 1 SH W}" 

: rem 169 

CL$="":F0RI-1T03 9 :CL$=CL$+" ":NEXT 

:rem 171 

S1$=" A . ... A _ A .... A .... A _ A .... A 

.. • •" : rem 143 

S2$="{ 1 SH -){ 4 SPAZI){ 1 SH -} 

{ 4 SPAZI){ 1 SH -)| 4 SPAZI) 

{ 1 SH -}{ 4 SPAZI){ 1 SH -} 

{ 4 SPAZI}{ 1 SH -}{ 4 SPAZI) 

{ 1 SH -)" : rem 2 

S3$="0{ 4 SPAZI}5{ 4 SPAZI)10 
{ 3 SPAZI)15{ 3 SPAZI)20{ 3 SPAZI}25 
{ 3 SPAZI)30":RETURN : rem 107 

FORI=3TOKK:GET#3,A$:NEXT:MH$="DRIVE 
"+DR$+"{RVS} " : rem 109 

F0RI=1T016:GET#3,A$:MH$=MH$+A$:NEXT: 
GET#3,A$,A$:MH$=MH$ + ":" : rem 134 

F0RI=1T02:GET#3,A$:MH$=MH$+A$:NEXT:M 
H$=MH$ + ":":GET#3,A$ : rem 193 

F0RI=1T02:GET#3,A$:MH$=MH$+A$:NEXT:M 
H$=MH$ + "{OFF}" : rem 25 

SP$="":FORI=lTO40:SP$=SP$+" ":NEXT 

:rem 222 

GOSUB420:PRINT"{ 2 GIU')"HD$: RETURN 

: rem 216 

REM DECIMALE HEX : rem 40 

REM"[< 11 T>T : rem 212 

M=VAL(M$) : IFMO0THENRETURN : rem 204 

M$=MID$(M$,2):M=0:LM=LEN(M$) 

: rem 6 4 

FORCN-1TOLM : rem 233 

MM$=MID$(M$,CN,1):GOSUB4330:M=M+MM*H 
(LM-CN) :NEXT : rem 138 


4320 

RETURN 

: rem 

169 

4330 

IFMM$="0"THENMM=0: RETURN 

: rem 

24 

4340 

MM=VAL (MM$) : IFMMO0THENRETURN 




: rem 

176 

4350 

MM=ASC(MM$)-55 : RETURN 

: rem 

58 

4360 

REM HEX DECIMALE 

: rem 

41 

4370 

REM"[< TI T>] 

: rem 

213 

4380 

C9=3:M$="$" 

: rem 

11 

4390 

SM=M:FORCN=C9TOOSTEP-1:CM% 

=SM/H(CN) 



: rem 

247 


4400 M$=M$+CHR$(CM%+48-7*(CM%>9)):SM=SM-H 
(CN)*CM%:NEXT:RETURN : rem 59 

4410 REM DIRECTORY : rem 98 

4420 GOSUB6130: INPUT"{CLR}{ 2 GIU'} 

{ 1 SH S)| 1 SH T}{ 1 SH A}{ 1 SH M) 
{ 1 SH P}{ 1 SH A}{ 1 SH N}{ 1 SH T) 
{ 1 SH E){ 4 SPAZI}N{ 3 SIN)";IN$:PD 
=3 :IF IN$="S"THEN PD=4 : rem 233 

4430 PT=-(PD=4):PF$="":SF$=CR$:PS=0:Q$=CH 
R$ (34) :Rl$="{RVS}":R2$="{OFF)":BT$=” 
":AT$="" : rem 210 

4440 AF$="":C80=0:LF$=CHR$(10):S5$=S0$:U9 
= 1:OPEN4,PD:IFPT=0GOTO4510 : rem 103 
4450 INPUT"{GIU'){ 1 SH S}{ 1 SH U) 80 

{ 1 SH C){ 1 SH 0){ 1 SH L}{ 1 SH 0} 

{ 2 SH N){ 1 SH E){ 5 SPAZI)S 

{ 3 SIN)";W$:IFW$="N"GOTO4470 

: rem 7 5 

4460 F0RI=1T018:BT$=BT$+" ":NEXT:C80=1:S5 
$=S4$:SF$="":AF$="-":GOTO4490 

:rem 187 

4470 S5$=LEFT$(SOS,38):INPUT"{GIU') 

{ 1 SH M}{ 1 SH A){ 1 SH R){ 1 SH G) 

{RVS}{ 1 SH D){ 1 SH E}{ 1 SH S) 

{ 1 SH T}.{OFF} { 1 SH Q){ 1 SH U) 

{ 1 SH A)| 1 SH N}{ 1 SH T}{ 1 SH I) 

{SPAZI}{ 1 SH S}{ 1 SH P){ 1 SH A) 

{ 1 SH Z){ 1 SH I){ 6 SPAZI}0 
{ 3 SIN)"; PS : rem 106 

4480 IFPSTHENFORI=lTOPS:PF$=PF$+" ":NEXT: 

BT$=PF$ :rem 211 

4490 INPUT"{GIU'}{ 1 SH V){ 1 SH U) 

{ 1 SH 0}{ 1 SH I) { 1 SH A}{ 1 SH N 

{ 1 SH C}{ 1 SH H}{ 1 SH E) { 1 SH U 

{ 1 SH N) { 1 SH L)( 1 SH I){ 1 SH N 

{ 1 SH E}-{ 1 SH F}{ 2 SH E){ 1 SH D 

{ 13 SPAZI}N{ 3 SIN)";U9$ : rem 246 

4500 IFU9$="S"THENAT$«AT$+LF$:IFC80=0THEN 
SF$=SF$+LF$ : rem 69 

4510 PRINT"{CLR}":PT$=" *******"+MID$(MH$ 
,10,24)+" *******":IFPT=0THENPT$=HD$ 

:rem 124 

4520 PRINT#4,BT$PT$AT$:PRINT"{ 1 SH U) 

{ 1 SH N) { 1 SH T}{ 1 SH A)( 1 SH S 

I 1 SH T){ 1 SH O) { 1 SH P}{ 1 SH E 

I 1 SH R) { 1 SH F}{ 1 SH E)( 1 SH R 

{ 1 SH M}{ 1 SH A){ 1 SH R){ 1 SH E) 
{GIU')"VC$:A5=32:A6=127:A7=160 

:rem 230 

4530 CLOSE3:OPEN3,DV,3,"$"+DR$: J$=" ":IF 
PT THENR1$="":R2$="" : rem 2 

4540 PRINT#4,BT$R1$" { 1 SH B){ 1 SH L) 

{ 1 SH O){ 2 SH C){ 1 SH O) 

{ 4 SPAZI) { 1 SH N}{ 1 SH OH 1 SH M 
{ 1 SH E){ 7 SPAZI}{ 1 SH T){ 1 SH I 
I 1 SH P)( 1 SH O) ({ 1 SH T), 

I 1 SH SI) { 1 SH I){ 1 SH N) 

{ 1 SH I)( 1 SH Z)."TC$;AT$:rem 218 
4550 TY$(0)="{ 1 SH D){ 1 SH E}{ 1 SH L}" 
:TY$(1)="{ 1 SH S){ 1 SH E}{ 1 SH Q) 

:TY$(2)="{ 1 SH P){ 1 SH R){ 1 SH G) 

:TY$(3)="{ 1 SH U){ 1 SH S}{ 1 SH R) 

:TY$(4)="{ 1 SH R){ 1 SH E}{ 1 SH L) 

:rem 227 

4560 IFC80=0THENPRINT#4,BT$; : rem 170 

4570 PRINT#4,S5$AT$: FORILOT0253:GET#3,A$: 

NEXT : rem 211 

4580 SI=0:F0RP=1T08:GET#3,A$:A=ASC(A$+CZ$ 
)-128:TY=-A*(A>0ANDA<5):A3$=TY$(TY) 

:rem 173 

4590 GET#3,A$,B$:A=ASC(A$+CZ$):B=ASC(B$+C 
Z$) :IFSTTHEN4760 : rem 255 

4600 A4$="<"+RIGHT$ (STR$ (A) ,2) +", "+RIGHT$ 

(STR$(B),2)+")":A0$="":FORI=lTO16 

:rem 200 

4610 GET#3,B$:A0$=A0$+B$:NEXT:A2$="": FORI 
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=1T016:B$=MID$(AO$,I,1) : rem 5 

4620 A9=ASC(B$+CZ$) :IFA9=A7THENB$="": 1=16 
:GOTO4640 : rem 115 

4630 IFA9<A50R(A9>A6ANDA9<A7)THENB$="?" 

:rem 255 

4640 A2$=A2$+B$ :NEXT :GOSUB4780 : IFTY02THE 
NA5$="{ 4 SPAZI}"+AF$:GOTO4670 

: rem 8 6 

4650 OPEN2,DV,2,DR$ + ":"+A0$+","+A3$+",R": 
GET#2,AL$,AH$:X$=AL$:GOSUB4900 

:rem 65 

4660 AL$=X$:X$=AH$:GOSUB4900:AH$=X$:A5$=A 
H$+AL$+AF$:CLOSE2 : rem 83 

4670 GET# 3,A$,A$,A$,A$,A$,A$,A$,A$,A$ 

:rem 32 

4680 GET#3,A$,B$:A=ASC(A$+CZ$):B=ASC(B$+C 
Z$):C=A+256*B:K9=ST:IFC=0THENP=10 

: rem 24 6 

4690 A1$=RIGHT$("{ 3 SPAZI}"+STR$(C),3) 

: rem 2 4 

4700 IFP<8THENGET#3/A$,A$ :rem 165 

4710 IF PT AND TY=0 THEN PRINT PF$A1$J$A2 
$A3$J$A4$J$A5$SF$:GOTO4750 : rem 164 
4720 IF C THEN PRINT#4,PF$A1$J$A2$A3$J$A4 
$J$A5$SF$; : rem 210 

4730 GETA$ : IFA$O""THENP=10 : rem 28 

4740 IFC80THENU9“1-U9:IFU9THENPRINT#4,AT$ 

: rem 62 

4750 NEXT:IFP<10ANDK9=0THEN4580 : rem 137 

4760 CLOSE3:GOSUB4790 :PRINT#4,PF$S5$SF$ 

:rem 117 

4770 CLOSE4:GOSUB6110 :GOSUB450 : RETURN 

:rem 107 

4780 A2$=R1$+Q$+LEFT$(A2$+Q$+SP$,17)+R2$: 



RETURN 

: rem 

99 

4790 

REM BLOCCHI LIBERI 

: rem 

99 

4800 

OPENl,DV,0,"$"+DR$+":" 

: rem 

115 

4810 

GOSUB4840:PRINT#4,LF$ 

: rem 

29 

4820 

L«X+Y*256:PRINT#4,PF$L;" { 

1 SH 

B) 


{ 1 SH L)( 1 SH OH 2 SH C}{ 1 SH H) 


{ 1 SH I) { 1 SH L){ 1 SH 

IH 1 

SH B 


{ 1 SH E)| 1 SH R}{ 1 SH I}"ATS 




: rem 

173 

4830 

CLOSE1: RETURN 

: rem 

144 

4840 

GET#1,X$,X$,X$,X$,X$,X$ 

: rem 

244 

4850 

GET#1, X$ : IFX$O""G0T04850 

: rem 

186 

4860 

GET#1,X$,X$,X$,Y$ 

:rem 

167 

4870 

X=LEN(X$):IFXTHENX=ASC(X$) 

:rem 

157 

4880 

Y=LEN(Y$):IFYTHENY=ASC(Y$) 

: rem 

163 

4890 

RETURN 

: rem 

181 


4900 X=ASC(X$+CZ$):XH%=X/16:XL=X-16*XH%:X 
$=MID$(HX$,XH%+1,1)+MID$(HX$,XL+1,1) 

:rem 137 

4910 RETURN : rem 174 

4920 REM ROUTINE RECUPERO : rem 62 

4930 REM"[< 17 U>] :rem 14 

4940 GOSUB6130 : rem 27 

4950 PRINT" {CLR} { 2 GIU'M 1 SH V) 

{ 1 SH E)| 2 SH R)| 1 SH A){ 2 SH N) 

{ 1 SH 0} { 1 SH M){ 1 SH OH 1 SH S 

{ 1 SH T}( 1 SH R){ 1 SH AH 1 SH T) 

{ 1 SH I) { 1 SH I) { 1 SH N| 

I 1 SH 0)( 1 SH M)| 1 SH I) | 1 SH D 

{ 1 SH E}{ 1 SH I) PRINT"{GIU') 

{ 1 SH F|| 1 SH I}{ 1 SH L}{ 1 SH E) 

{ 1 SH C}{ 1 SH AH 1 SH N}{ 1 SH C 
{ 1 SH E){ 2 SH L){ 1 SH A}{ 1 SH T) 
{ 1 SH I): rem 190 

4960 PRINT"{GIU'}{ 1 SH D)( 1 SH E) 

( 1 SH V){ 1 SH I) | 1 SH S}| 1 SH C 

{ 1 SH EH 1 SH G){ 1 SH L){ 1 SH I ) 

{ 1 SH E)( 1 SH R)( 1 SH E) { 1 SH I 

( 1 SH L| { 1 SH F)( 1 SH I}{ 1 SH L 

{ 1 SH E) { 1 SH D}{ 1 SH A)":PRINT" 

{GIU ' ) { 1 SH R)( 1 SH EH 1 SH C} 

{ 1 SH UH 1 SH P)( 1 SH E){ 1 SH R) 

{ 1 SH A){ 1 SH R)( 1 SH E) 

:rem 98 

4970 PRINT" { 2 GIU'HRVSM 1 SH R) 

{ 1 SH E){ 1 SH T|( 1 SH UH 1 SH R) 
{ 1 SH N){OFF) PER CONTINUARE":GOSUB 
480 :PRINT"{CLR)" : rem 30 

4980 CLOSE3:CLOSE15:OPEN15,DV,15 : rem 190 
4990 T=DI:S=1:OPEN3,DV,3,"#0":GOSUB6350 

:rem 254 


5000 PRINT#15/"B-R";3;DR;T;S : rem 104 

5010 PRINT"{CLR}{ 1 SH L)( 1 SH E} 

{ 2 SH T){ 1 SH UH 1 SH R|| 1 SH A} 

( 1 SH D)| 1 SH I):" : rem 146 

5020 PRINT" { 2 GIU'H 1 SH T|( 1 SH R) 

{ 1 SH A){ 2 SH C){ 1 SH I)( 1 SH A} 

{ 4 SPAZI){ 3 SIN)"T" ( 1 SH S) 

I 1 SH E]( 2 SH T).( 4 SPAZI) 

{ 3 SIN)"S : rem 56 

5030 FORJ=0TO255:PRINT#15,"B-P";3;J:GET#3 

•rem 2 4 

5040 C(J)=ASC(A$+CZ$):NEXT -rem 214 

5050 F0RD=2T0255STEP32 : IFC (D) OOORC (D+l)= 
OTHEN50 90 :rem 206 

5060 PRINTSD$CL$SD$"{ 1 SH V)( 1 SH U) 

{ 1 SH OH 1 SH I) { 1 SH R)| 1 SH E 

{ 1 SH C)( 1 SH UH 1 SH P)( 1 SH E) 

{ 1 SH R)( 1 SH AH 1 SH R)| 1 SH E) 

{ 3 SPAZI){RVS}"; :FORP9=lTO200:NEXT 

: rem 9 

5070 GETA$:FORK=D+3TOD+18:PRINTCHR$(C(K)) 

;:NEXT:PRINT"{OFF)?":GOSUB480 

: rem 181 

5080 IFIN$="S"THEN5110 : rem 225 

5090 NEXTD:T=C(0):S=C(1):IFT-DITHEN5000 

: rem 7 4 

5100 PRINT"{CLR}{ 1 SH L){ 1 SH E) 

{ 2 SH T}{ 1 SH U)( 1 SH R)| 1 SH A) 
{ 1 SH TU 1 SH E){ 1 SH R}{ 1 SH M 
{ 1 SH I}{ 1 SH N){ 1 SH A){ 1 SH T) 
{ 1 SH A).":PRINT"{ 2 GIU')(RVS) 

{ 1 SH R)( 1 SH E}{ 1 SH T)| 1 SH U) 

{ 1 SH R){ 1 SH N){OFF) PER CONTINUA 

RE":GOSUB480:RETURN : rem 30 

5110 T0=T:S0=S:T=C(D+l):S=C(D+2):B0=C(D+2 
8)+C(D+29)*256:GOSUB6110 :rem 95 

5120 PRINT"{CLR){ 2 GIU'}{RVS){ 1 SH C) 

{ 1 SH OH 1 SH N}{ 1 SH T)( 1 SH O) 
{ 1 SH B|| 1 SH L) { 1 SH 0)1 2 SH C 
{ 1 SH H}{ 1 SH I) { 1 SH D|{ 1 SH I 

{ 1 SH R)| 1 SH E)( 1 SH CH 1 SH T) 

{ 1 SH 0)1 1 SH R){ 1 SH Y)="B0:N9=1 

:PRINTS0S : rem 88 

5130 CLOSE3:CLOSE15:OPEN15,DV,15:OPEN3,DV 
,3,"#":GOSUB6350:GET#3,BN$:BN=ASC(BN 



$) 

: rem 

196 

5140 

T(N9)=T:S(N9)=S:N9“N9+1 

: rem 

93 

5150 

PRINT#15,"B-R"; 3 ;DR;T;S 

: rem 

110 

5160 

PRINT#15,"B-P"; 3 ; 0 

: rem 

234 

5170 

GET#3,Z$:IFZ$=""THENZ$=CZ$ 

: rem 

32 

5180 

T(N9)=ASC(Z$):IFT(N9)=0THEN5240 




: rem 

57 

5190 

GET#3,Z$:IFZ$=""THENZ$=CZ$ 

: rem 

34 

5200 

S(N9)“ASC(Z$) 

: rem 

213 

5210 

T$=MID$(STR$(T),2) :S$=MID$(STR$(S) ,2 


) 

: rem 

72 

5220 

PRINT"("T$", "S$") "; 

: rem 

201 

5230 

T=T(N9):S=S(N9):N9=N9+1:GOTO5150 




: rem 

155 

5240 

N9=N9-1:PRINT 

: rem 

59 

5250 

PRINT"{GIU'){RVS}"N9" { 1 

SH B} 



{ 1 SH L){ 1 SH 0){ 2 SH C){ 1 SH H) 


{ 1 SH IHGIU' )" : rem 16 

52 60 IFN9OB0THENPRINT" { 2 GIU')** (RVS) 

{ 1 SH CH 1 SH 0)1 1 SH N)| 1 SH T) 

{ 1 SH O) { 1 SH B}{ 1 SH L}{ 1 SH O 
{ 2 SH C){ 1 SH H)( 1 SH I) { 1 SH E 

{ 2 SH R){ 1 SH A|( 1 SH T)( 1 SH 0} 

{OFF}**{ 2 GIU')":GOSUB450:RETURN 

: rem 16 

5270 PRINT"{GIU*){ 1 SH T}{ 1 SH U) 

{ 2 SH T){ 1 SH O) { 1 SH SH 1 SH E 

{ 1 SH M}{ 1 SH B)| 1 SH R)| 1 SH A) 

{ 1 SH OH 1 SH K) ." : rem 82 

5280 PRINT" {GIU'H 1 SH D)| 1 SH E) 

{ 1 SH V|{ 1 SH O) { 1 SH P){ 1 SH R 
{ 1 SH 0}{ 1 SH C){ 1 SH E]{ 1 SH D) 

{ 1 SH E)| 1 SH RH 1 SH E) ?" :GOSUB4 

80 :IFIN$<>"S"THENRETURN : rem 49 
5290 PRINT" {CLR} { 2 GIU'H 1 SH C) 

{ 1 SH OH 1 SH N}{ 1 SH T){ 1 SH R) 

{ 1 SH 0){ 2 SH L)| 1 SH O) { 1 SH C 

{ 1 SH H}{ 1 SH E) { 1 SH I){SPAZI) 

{ 1 SH B}{ 1 SH L){ 1 SH 0}{ 2 SH C) 

{ 1 SH H}{ 1 SH I) { 1 SH S]| 1 SH I 

{ 1 SH A){ 1 SH N){ 1 SH O)" 
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:rem 185 

5300 PRINT"{GIU'}{ 1 SH L|( 1 SH 1} 

{ 1 SH B|| 1 SH E)| 1 SH R)| 1 SH I} 

{ 1 SH L}{ 1 SH E}{ 2 SH G}{ 1 SH E 
{ 1 SH N|| 1 SH D)| 1 SH 0} { 1 SH L 

{ 1 SH A) { 1 SH B}{ 1 SH A}{ 1 SH M 

.{GIU'}" : rem 238 

5310 PRINT"{GIU'}{ 1 SH V}{ 1 SH 1} 

{ 1 SH S}{ 1 SH UH 1 SH A)) 1 SH L} 

{ 1 SH I}( 2 SH Z}| 1 SH 0} { 1 SH L 

{ 1 SH E) ( 1 SH T)| 1 SH R)| 1 SH A 

{ 2 SH C}{ 1 SH E}/{ 1 SH S >{ 1 SH E 

{ 2 SH T)( 1 SH OH 1 SH R}{ 1 SH I) 

{ 1 SH D)( 1 SH EH 1 SH L) 

{ 1 SH FU 1 SH I}{ 1 SH L) { 1 SH E} 

: rem 92 

5320 PRINT” {GIU' } { 1 SH SH 1 SH E} 

{ 1 SH U}{ 1 SH N}{SPAZI}{ 1 SH B} 

{ 1 SH L}( 1 SH 0}{ 2 SH C}{ 1 SH 0} 

{ 1 SH E} ' ( 1 SH OH 2 SH C) 

{ 1 SH U)( 1 SH P)| 1 SH A)| 1 SH T) 

{ 1 SH O), { 1 SH I}{ 1 SH L) 

{ 1 SH R)| 1 SH EH 1 SH C){ 1 SH U) 

" :rem 160 

5330 PRINT"{GIU'}{ 1 SH P)| 1 SH E) 

I 1 SH R){ 1 SH O) { 1 SH N}{ 1 SH 0 

{ 1 SH N){SPAZI}{ 1 SH S}( 1 SH A} 

{ 1 SH R)( 1 SH A}’ {SPAZI}{ 1 SH P} 

{ 1 SH 0){ 2 SH S|{ 1 SH I}{ 1 SH B) 

{ 1 SH I)| 1 SH L}{ 1 SH E}! ! !" :GOSU 

B450 : rem 188 

5340 CLOSE15:OPEN15,DV,15,"I"+DR$:GOSUB63 
50 :PRINT"{CLR}":GOSUB6130:Kl=l 

: rem 62 

5350 OPEN2,DV,2,"$"+DR$:GOSUB6350 

: rem 8 6 

5360 DEF FNB(I) = (ZANDP(I))/P(I) : rem 203 
5370 FF=D1+(T(Kl)-1)*S3:PP=0 :rem 255 
5380 FORK2=OTOFF:GET#2,A$:NEXT : rem 73 
5390 T=T(Kl):PRINT"{CLR}":GOSUB2180:GOSUB 
2300 :rem 37 

5400 PRINTSDS"{ 1 SH C|( 1 SH 0}{ 1 SH N} 

{ 1 SH T}{ 1 SH R}| 1 SH OH 2 SH L} 

{ 1 SH A}{SPAZI}{ 1 SH C}{ 1 SH H} 

{ 1 SH E} { 1 SH 1}{SPAZI}{ 1 SH S) 

{ 1 SH E}{ 1 SH G)| 1 SH UH 1 SH E} 

{ 1 SH N)( 1 SH T}{ 1 SH 1} " 

:rem 64 

5410 PRINT"{GIU'}{ 1 SH S){ 1 SH E} 

{ 2 SH T}{ 1 SH Oli 1 SH R)| 1 SH I} 
{ 1 SH S}| 1 SH I}{ 1 SH A}{ 1 SH N 
{ 1 SH 0} { 1 SH L}{ 1 SH I}{ 1 SH B 
{ 1 SH E}| 1 SH R}{ 1 SH I}={ 1 SH W 
" :rem 27 

5420 F0RK2=1T0N9:IFT(K2)-TTHENPRINTR$(PP) 
MID$(STR$(S(K2)),2)R$(1-PP); 

:rem 162 

5430 PP«1-PP:NEXT:PRINT : rem 231 

5440 PRINT"{GIU'}{ 1 SH 0}{ 1 SH K}?":GOS 
UB480 : rem 222 

5450 IFIN$<>"S"THENPRINT"{CLR}{ 1 SH S} 

{ 1 SH P)| 1 SH I}{ 1 SH A}{ 1 SH C) 

{ 1 SH E}{ 1 SH N}{ 1 SH T}{ 1 SH E} 

..":GOSUB6110:GOSUB450:CLOSE2: RETURN 


5460 

CLOSE2:IFK1>N9THENCL0SE15 

:rem 
: RETURN 

51 

5470 

K1=K1+1:IFT(Kl)=0THEN5500 

: rem 
: rem 

166 

177 

5480 

IFT(Kl)=TTHEN5470 

: rem 

17 

5490 

GOTO5350 

: rem 

216 

5500 

PRINT"{CLR}":GOSUB6110 

: rem 

176 


5510 PRINT"{ 1 SH M}{ 1 SH 0}{ 1 SH D} 


{ 1 SH I}{ 1 SH F}{ 1 SH I}{ 1 SH C} 
{ 1 SH A} { 1 SH I){ 1 SH 1) {RVS}' 

{ 1 SH M}{ 1 SH A}| 1 SH G}{ 1 SH I} 
I 1 SH C| { 1 SH B}{ 1 SH Y}{ 1 SH T 
{ 1 SH E}'{OFF} { 1 SH S}{ 1 SH U} 

{ 2 SH L}{ 1 SH A) { 1 SH D}{ 1 SH I 
{ 1 SH R}{ 1 SH E}{ 1 SH C}{ 1 SH T| 

{ 1 SH 0}{ 1 SH R){ 1 SH Y|" 

:rem 170 

5520 PRINT"{GIU'H 2 SH T}{ 1 SH A} 

I 2 SH C){ 1 SH I}{ 1 SH A}"TO" 

< 1 SH S){ 1 SH E)| 2 SH T}{ 1 SH 0} 

{ 1 SH R}| 1 SH E)"SO : rem 24 

5530 PRINT"{GIU'}{ 1 SH P}{ 1 SH 0} 


{ 1 SH 1} { 1 SH R)( 1 SH I}{ 1 SH S 
{ 1 SH C}{ 1 SH R}{ 1 SH I}{ 1 SH V} 

{ 1 SH 1} { 1 SH I}( 1 SH L) 

{ 1 SH B}{ 1 SH L}{ 1 SH 0)| 2 SH C) 

{ 1 SH 0} { 1 SH S}{ 1 SH U} ("TO"," 
SO")" : rem 125 

5540 PRINT"{GIU*}{ 1 SH I}{ 1 SH N) 

{ 1 SH F}{ 1 SH I}| 1 SH N)| 1 SH E) 

{RVS}{ 1 SH V}{ 1 SH A){ 1 SH L} 

{ 1 SH I}{ 1 SH D}{ 1 SH A}{OFF} 

{ 1 SH I}{ 1 SH L} { 1 SH D}{ 1 SH I 

{ 1 SH S}{ 1 SH C}{ 1 SH 0}!" 

:rem 102 

5550 GOSUB450:RETURN : rem 2 

5560 REM BACKUP PER BLOCCHI : rem 69 

5570 REM"{< 15 U>] : rem 159 

5580 POKE53280,F5:PRINT"{CLR}”:X=30:X$=" 

{ 1 SH B}{ 1 SH A}{ 1 SH C}{ 1 SH K) 
{ 1 SH U|| 1 SH P}":Y$="":GOSUB6070 

:rem 38 

5590 PRINT" { 2 GIU'H 1 SH S} { 1 SH 0} 

{ 1 SH L}{ 1 SH 0} ( 1 SH P}{ 1 SH E 

{ 1 SH R) { 1 SH D)| 1 SH U}{ 1 SH E 

{SPAZI}{ 1 SH D}{ 1 SH R}{ 1 SH 1} 

{ 1 SH V}{ 1 SH E}":GOSUB450 

:rem 181 

5600 PRINT"{CLR}({ 1 SH R)( 1 SH E} 

{ 1 SH T}{ 1 SH U}{ 1 SH R}{ 1 SH N) 
ESCE)":FF$="":GOSUB6070 : rem 114 
5610 INPUT"{ 3 GIU'}{RVS}{ 1 SH D} 

{ 1 SH A}{ 1 SH L| {OFF} { 1 SH D) 

{ 1 SH R}{ 1 SH I}{ 1 SH V}| 1 SH E} 

{ 3 SPAZI}{SPAZI}{ 3 SIN}";FD$:FD=VA 
L(FD$):IF FD$="{SPAZI}"THENRETURN 

:rem 172 

5620 INPUT"{GIU*}{ 1 SH D}{ 1 SH E} 

{ 1 SH V}| 1 SH I}{ 1 SH C}{ 1 SH E} 
{ 3 SPAZI}8{ 3 SIN}";DA : rem 49 
5630 INPUT"! 2 GIU'}{RVS}{ 1 SH A} 

{ 1 SH L}{OFF} { 1 SH D}{ 1 SH R| 

{ 1 SH I}{ 1 SH V}{ 1 SH E}";TD$:TD= 
VAL(TD$) : INPUT"{GIU*}{ 1 SH D| 

{ 1 SH E}{ 1 SH V}( 1 SH I}{ 1 SH C| 
I 1 SH E}{ 3 SPAZI}8{ 3 SIN}";DB 

: rem 132 

5640 CLOSE3:CLOSE5:CLOSE14:CLOSE15:OPEN15 
,DA,15 :PRINT#15,"I"+FD$ :rem 127 

5650 OPEN3,DA,3,"#":GOSUB6350:OPEN14,DB,1 
5 :P=1:IFDB=DATHENBB=3:GOTO5670 

:rem 230 

5660 BB=5:OPEN5,DB,5,"#" :rem 14 

5670 INPUT" { 2 GIU'H 1 SH I} { 1 SH N) 

{ 1 SH I}| 1 SH Z}{ 1 SH I)| 1 SH 0} 
{ 1 SH C)( 1 SH 0}{ 1 SH N| 

{ 1 SH T}{ 1 SH R}{ 1 SH A}{ 2 SH C} 

{ 1 SH I){ 1 SH A}{ 3 SPAZI}1 

{ 3 SIN} ";T8: INPUT" { 2 GIU'H 1 SH F 

{ 1 SH I}{ 1 SH N}{ 1 SH E} { 1 SH A 

{SPAZI}{ 1 SH T}{ 1 SH R}| 1 SH A} 

{ 2 SH C}{ 1 SH I){ 1 SH A) 

{ 3 SPAZI}35{ 4 SIN}";T9 :rem 14 
5680 INPUT"! 2 GIU'H 1 SH E}{ 2 SH R} 

{ 1 SH 0}{ 1 SH R}| 1 SH 1}{SPAZI} 

{ 1 SH S}{ 1 SH U| { 1 SH S)| 1 SH T 

{ 1 SH A}{ 1 SH M}{ 1 SH P}{ 1 SH A} 

{ 1 SH N}{ 1 SH T}( 1 SH E| N 

{ 3 SIN) "; W$ :W=0 : IF W$="S" THEN V 
V=1:OPEN4,4 : rem 74 

5690 IFW=0THEN5720 :rem 121 

5700 INPUT"{GIU'}{ 1 SH V}{ 1 SH U} 

{ 1 SH 0}{ 1 SH I) { 1 SH A}{ 1 SH N 

{ 1 SH C}{ 1 SH H}{ 1 SH E} { 1 SH U 

{ 1 SH N} { 1 SH L){ 1 SH I}{ 1 SH N 

{ 1 SH E}-{ 1 SH F}{ 2 SH E}{ 1 SH D 


{ 3 SPAZI}N{ 3 SIN}";U9$ : rem 241 

5710 IFU9$="S"THENFF$-CHR$(10) : rem 177 
5720 PRINT"{CLR}..{ 1 SH A}{ 2 SH T} 

{ 1 SH E}{ 1 SH N}{ 1 SH D}| 1 SH E} 

{ 1 SH R}| 1 SH E}." :GOSUB450 

: rem 109 

5730 PRINT"{CLR}":FORT=T8TOT9:FORS=0TO31 

:rem 137 

5740 PRINT#15,"B-R"; 3;FD;T;S :rem 103 

5750 INPUT#15,E,E$,E1,E2 :rem 53 


5760 IF E=66 THEN S=31:GOTO5910 : rem 180 
5770 PRINT"{HOME){ 1 SH T){ 1 SH R| 


64 SUPE «COMMODORE C84 • 128 STC7 




CERCHIAMO 
COMPUTER 
STANCHI 
DEL SOLITO 

MENU. 



,GGIO DELLA MORTE 


CONSIGLI PER 
IRAGON S LAIR 


C64 e C128 è ora di cambiare! 

Ecco a voi ijacksoniani: Jack, Sonny e Ann tre 
intrepidi eroi della galassia di Lug che difen¬ 
dono L'Armonia Cosmica dalle Forze Oscu¬ 
re. È facilissimo entrare nel loro mondo basta 
un "load" ed eccoti protagonista di una mera¬ 
vigliosa avventura galattica e con un sempli¬ 
ce “fine" salti con tranquillità da un'avventura 
ad un'altra, da un pianeta ad un asteroide. 
Allora che aspetti? Dai l'input e immergiti nel¬ 
la Galassia, ti aspettano i tuoi amici Jacksonia- 
ni. Dal mese di Marzo in edicola un appunta¬ 
mento mozzafiato: fascicolo 
+ cassetta con tre fantasti¬ 


che adventures 


/ 4 GRUPPO EDITORIALI 

y JACKSON 


i JACK50NIANI 


CON COLONNA 
SONORA 


E SPRITES i 
ALL'INTERNO 
DEI GIOCHI 


I JACKSONIANI 


ADVENTURE 
IN TRE PARTI 


NUOVO SAPORE D’AVVENTURA 
TUTTI I MESI IN EDICOLA. 



















5780 

5790 


5800 


5810 

5820 

5830 

5840 

5850 

5860 

5870 

5880 


5890 


5900 

5910 

5920 

5930 


5940 

5950 

5960 

5970 

5980 


5990 

6000 

6010 


6020 


6030 


6040 

6050 

6060 

6070 


{ 1 SH A}{ 2 SH C}( 1 SH IH 1 SH A) 
{ 7 SPAZI}{ 5 SIN}"T" { 1 SH S) 

{ 1 SH E}{ 2 SH T).| 6 SPAZI} 

{ 5 SIN}"S : rem 169 
IF E=0 THEN5810 : rem 18 
PRINT"{HOME}":FORI=lTOP:PRINT: NEXT:P 
RINTE;E$;E1;E2;":{ 1 SH D}{ 1 SH R} 

{ 1 SH I}{ 1 SH V}{ 1 SH E} {RVS}"FD 
:P=P+1 : rem 153 
IF W THEN PRINT#4,E;E$;E1;E2 ; " : 

{ 1 SH D}| 1 SH R}( 1 SH I}{ 1 SH V} 
( 1 SH E} {RVS}"FD;FF$ : rem 205 
IFBB=3THEN5 840 : rem 81 
FORU9-0TO255:PRINT#15,"B-P",3,U9:PRI 
NT#14,"B-P",5,U9 : rem 33 
GET#3,BY$:PRINT#5,BY$:NEXT : rem 116 
PRINT#14,"U2:BB;TD;T;S : rem 198 
INPUT#14,E,E$,E1,E2 : rem 53 
IF E=66 THEN S=31:GOTO5910 :rem 181 
IF E=0 THEN5900 :rem 18 
PRINT"{HOME}":FORI=lTOP:PRINT:NEXT:P 
RINTE;E$;E1;E2;":{ 1 SH D}{ 1 SH R} 

{ 1 SH I}{ 1 SH V}{ 1 SH E) {RVS}"TD 
:P-P+1 :rem 167 
IF W THEN PRINT#4,E;E$;E1;E2;": 

{ 1 SH D}{ 1 SH R}{ 1 SH I}{ 1 SH V} 
{ 1 SH E) {RVS}"FD;FF$ : rem 214 
GETIN$ : IFIN$O""THENS=100 : T=100 

:rem 87 

NEXT:NEXT:PRINT#14,"I"+TD$:IF W THE 
N PRINT#4:CLOSE4 : rem 226 
CLOSE3:CLOSE5:CLOSE14:CLOSE15 


:rem 137 

PRINT"{HOME}{ 38 SPAZI}{HOME}"X$"... 
{RVS}{ 1 SH F){ 1 SH 1}{ 1 SH N} 

{ 1 SH I}{ 1 SH T}( 1 SH 0}!{OFF}" 

:rem 160 

GETA$:IFA$«""GOTO5940 : rem 209 

RETURN :rem 179 

REM CONTROLLO BLOCCHI : rem 104 

REM"[< 17 U>] :rem 19 

PRINT"{CLR}":X=2:X$="{ 1 SH C} 

{ 1 SH 0}{ 1 SH N}{ 1 SH T){ 1 SH R) 

{ 1 SH B}{ 1 SH L}{ 1 SH 0}{ 2 SH C) 

I 1 SH H)| 1 SH 1} { 1 SH D}| 1 SH I 

{ 1 SH F}{ 1 SH E}( 2 SH T}{ 1 SH 0} 

{ 1 SH S)| 1 SH I}":Y$="":GOSUB6070 

: rem 4 

INPUT"{GIU'}{ 1 SH D)( 1 SH E} 

{ 1 SH V}( 1 SH I|| 1 SH C){ 1 SH E) 
{ 3 SPAZI}8{ 3 SIN)";DA :DBHDA 

:rem 189 

INPUT"{GIU'){ 1 SH D}{ 1 SH R} 

{ 1 SH 1}{ 1 SH V}{ 1 SH E} 

{ 3 SPAZI}0{ 3 SIN}";FD$:TD$=FD$;FD= 
VAL(FD$) :TD=VAL(TD$) ; rem 88 

PRINT"{ 2 GIU'}{RVS}{ 1 SH S} 

{ 1 SH C}{ 1 SH R){ 1 SH I|| 1 SH V} 
{ 1 SH 0} { 1 SH E} | 1 SH L} 

I 1 SH E}{ 2 SH G){ 1 SH 0} { 1 SH S 
{ 1 SH U) { 1 SH 0){ 1 SH G)| 1 SH N 
{ 1 SH I) { 1SHB}{ 1 SH L}( 1SHO 
{ 2 SH C}{ 1 SH O)" : rem 220 

PRINT"{GIU’}{RVS}{ 1 SH I}{ 1 SH N} 

{ 1 SH D)| 1 SH I}{ 1 SH C}{ 1 SH A} 
{ 1 SH N}{ 1 SH D)| 1 SH 0} { 1 SH E 
{ 1 SH V}{ 1 SH E|| 1 SH N}{ 1 SH T| 

{ 1 SH U}{ 1 SH A}{ 1 SH L}{ 1 SH 1} 

{ 1 SH E}{ 2 SH R}{ 1 SH 0}{ 1 SH R 
1 1 SH I).{ 2 SPAZI}" ; rem 243 

INPUT" { 2 GIU’H 1 SH V}{ 1 SH U| 

{ 1 SH OH 1 SH 1} { 1 SH C}{ 1 SH O 
{ 1 SH N}{ 1 SH T}{ 1 SH I)| 1 SHN) 

{ 1 SH UH 1 SH A}| 1 SH R}| 1 SH E} 

{ 5 SPAZI}S{ 3 SIN}";Q$:IFQ$="S"GOTO 
5640 :rem 238 

RETURN : rem 170 

PRINT"{HOME}{ 2 GIU'}":FORU9=lTOX:PR 
INT"{DES}";:NEXT:L9«LEN(X$):IFL9<4TH 
ENL9=4 :rem 80 

X$-LEFT$(X$+"{ 4 SPAZI}",L9):Y$=LEFT 
$("MENU{ 8 SPAZI}",L9) : rem 127 

L9-LEN(X$):PRINT"[<A>]";:F0RU9=1T0L9 
:PRINT"{ 1 SH *}";:NEXT:PRINT"[<S>] 
{GIU'HSINH 1 SH -} {GIU'} {SIN} 

{ 1 SH -){GIU'}{SIN}[<X>]{ 2 SIN}"; 


:rem 164 

6080 FORU9-1TOL9:PRINT"{ 1 SH *}{ 2 SIN} 
";:NEXT:PRINT"[<Z>]{SIN}{SU}{ 1 SH - 
{SIN}{SU}{ 1 SH -}{RVS}"VC$X$;:FORU9 
-ITOLEN(XS) : rem 82 

6090 PRINT"{SIN}";:NEXT:PRINT"{GIU'}{RVS} 
"Y$TC$:RETURN : rem 113 

6100 REM MAIUSCOLO/MINUSCOLO : rem 63 

6110 IFCP$="C64"THENPRINTCHR$(14); :RETURN 

: rem 4 

6120 POKE59468,14:RETURN :rem 179 

6130 REM :rem 174 

6140 POKE59468,12:RETURN : rem 179 

6150 SD=54272:FORI=0TO24:POKESD+I,0:NEXT: 
POKESD+6,240:POKESD+l,50:POKESD+24,1 
5 : rem 0 

6160 PA=SD+4:O0=33:Ol=0:PB-65535:PC=PB 

:rem 193 

6170 IFCP$="PET"THENPB=59467:PC=59466:POK 
EPB,16:POKEPC,15:PA=59464:00=100 

:rem 90 

6180 GOSUB6190:RETURN : rem 57 

6190 POKEPB,16:POKEPC,15 :POKEPA,OO:FORP9= 
1TO10:NEXT:POKEPA,01 :POKEPB,0 :RETURN 

: rem 3 

6200 REM INPUT : rem 60 

6210 PRINT"{ 1 SH C){ 1 SH 0}{ 2 SH R} 

{ 1 SH E}{ 1 SH N}{ 1 SH T}{ 1 SH E} 

C("I")-{ 5 SPAZI}{SPAZI}{ 5 SIN}"C( 
I) :rem 232 

6220 INPUT"{GIU'}{ 1 SH I}{ 1 SH N) 

{ 1 SH P}| 1 SH U}{ 1 SH T} { 1 SH D 

{ 1 SH 1} | 1 SH S}{ 1 SH T}| 1 SH R 

{ 1 SH I}| 1 SH N}{ 1 SH G}| 1 SH A} 

{ 2 SPAZI)S{ 3 SIN}";A$:IFA$="N"THEN 
RETURN :rem 186 

6230 PRINT"{GIU'){ 1 SH I){ 1 SH N} 

{ 1 SH S}{ 1 SH E}{ 1 SH R){ 1 SH I} 

( 1 SH R){ 1 SH E} { 1 SH S}{ 1 SH T 

{ 1 SH R){ 1 SH I}| 1 SH N}{ 1 SH G) 

{ 1 SH A}: (FINIRE CON {RVS}{ 1 SH R 

{ 1 SH E}{ 1 SH T}{ 1 SH UH 1 SH R} 

{ 1 SH N}{OFF})":BC$="CONTO BYTE" 

:rem 109 

6240 BC$="CONTO BYTE{ 13 SPAZI}":GOTO6280 

: rem 16 

6250 N=LEN(IN$):F0RK9-1T023:POKECRT+K9-1, 
ASC(MID$(BC$,K9,1))-64 :NEXT:rem 38 

6260 K9=12:N$=MID$(STR$(N),2):LN=LEN(N$): 

FORK8-1TOLN : rem 70 

6270 POKECRT+K8+K9,ASC(MID$(N$,K8,1)):NEX 
T:POKECRT+K8+K9,32 : rem 30 

6280 PRINT"[<P>]{SIN}";:GETA$:IFA$=""THEN 
6260 :rem 83 

6290 A=ASC(A$):IFA=170RA=1450RA=1480RA=19 
ORA=147ORA-157THEN6260 : rem 253 

6300 PRINT" {SIN}";:IFA-13THEN6340 

:rem 25 

6310 IFIN$=""ANDA=20THEN62 60 : rem 69 

6320 IFA=20THENN=N-1:PRINT"{SIN} {SIN}";: 

IN$=LEFT$(IN$,N) :GOTO6260 : rem 104 

6330 PRINT" {SIN}"A$; :IN$=IN$+A$:N=LEN(IN 


$) :IFN<255-ITHEN6260 : rem 105 

6340 FORU9=lTON:C(I+U9-1)=ASC(MID$(IN$,U9 



,1)):NEXT:RETURN 

: rem 

232 

6350 

INPUT#15,E,E$,E1,E2 

: rem 

50 

6360 

IFE=0THENRETURN 

: rem 

31 


6370 PRINT:PRINT"{GIU'}**{RVS}{ 1 SH E} 

{ 2 SH R}{ 1 SH 0}{ 1 SH R}{ 1 SH E} 
{ 1 SH D){ 1 SH I)| 1 SH S}| 1 SH C 
{ 1 SH 0}{OFF}**{GIU’}":PRINTE;E$;E1 
;E2 :rem 170 

6380 FORA9-lTO10:GOSUB6190:NEXT : rem 167 

6390 PRINT"{ 2 GIU’}{RVS}{ 1 SH R} 

{ 1 SH E)| 1 SH T}{ 1 SH U}{ 1 SH R) 
{ 1 SH N}{OFF) PER CONTINUARE" 

:rem 40 

6400 PRINT"{ 2 GIU'JUN ALTRO TASTO PER 

{RVS JUSCIRE{OFF}." : rem 241 

6410 GOSUB480:IFIN$=CR$THENRETURN 

:rem 112 

6420 GOTO3700 :rem 207 
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SUPERCOMMOOORE C84 e 128 &87 




Noi 128 & 64 per capire e conoscere il tuo computer. Per lavorare, studiare e giocare. In questo 
numero troverai il foglio elettronico BUSICALC e un magnifico supergioco per provare la tua 
abilità “BOMBO”. Ma non è finita: potrai scoprire memorie misteriose e imparare l’astronomia, 
e non è ancora tutto infatti per VIDEOMUSIC suonerai Gloria e tanta tanta grafica facile 
per i tuoi programmi colorati. In 128 £? 64 non solo computer ma anche scuola, giochi, cul¬ 
tura, musica e telecomunicazioni. Il tutto naturalmente firmato Gruppo Editoriale Jackson. 


la vuoi 
magazine, 
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PROGRAMMA 
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y JACKSON 



(jj) VINCERE ALL' ENALOTTO (j§ 


[A LOTTO 
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VERSIONE 
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versione 
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